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ZTITLE ‘LAT Control Program’ 
MODULE LATCP 
LANGUAGE sO 13532). 
IDENT = *v04-006' 
BEGIN 2 


' 
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' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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ie CORPORATION. * 

* 

® 

® 

® 

® 

* 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: LAT Control Program 


! ABSTRACT: 


This program controls and obtains counters and other information 
from the LAT terminal port driver. 


i ENVIRONMENT: VAX/VMS Operating System 


i AUTHOR: Darrell Duffy . CREATION DATE: 2=July-1983 
' Previously spy th b 

Joe Marchesani 
i MODIFIED BY: 


v03-009 RNGOOO9 Rod Gam 16-Jul-1984 
Use system NODEname ior *ONSDES NAME qutttlor if SYSSNODE 
does not translate. 
Allow for the Physical UCB pointer to be zero in the check 
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Add HELP command. 
Add START HISTORY —— 
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LAT Control Program 16- $ep-1984 01:49:1 VAX=-11 Bliss- 
000 ’ erg b7}882 F3i87i28 = DIScSuMeHASTE 
8 O38 V03-008 RNGOOO8 Rod Gam 7-Jun-1984 
9 05 Chan pee IDENTIFICATION to "SEavice IDENTIFICATION. 
060 with change in .CLD for /NAME and /IDENTIFICATION, 
the LATCP prosres must * pteult values on it's own. 
4 


Add new V5 message formats. 


5 ; } 

3 1: 

; 1} 

3 1: 

3 ,} 

3 1} 

3 64 06 1! Add STOP HISTORY ¢ and. 

; > 0065 1! Add /CNOJLOG quatitier to START, SET and STOP verbs. 

s 66 BOE : } ae proper determination of LAT terminals when shutting 

: 68 0068 1 | , 

3 S 8 9 1! v03-007 RNGOO07 Rod Gam 8-May-1984 

3 4 Boy : } chenee | HOST qualifier to CNSDE qualifier, as ver documentation 
; 4 it : Change’ MULTICAST_RATE to MULTICAST_TIMER. 

; 0074 1: V03-006 RNGO006 Rod Gam 1-May-1984 

; ee hg : } sate LATCP to be a pipina instead of Dee " sonnet. 

: #77 0077 1} v03-005 LMPO2 Pilant 12-Apr-1984 14:42 
$ rs pore : } change uc a _ownuic™ aa KoRBSe POUNER and UCB$W_VPROT to 

: 80 0080 1: 

3 81 0081 1! V03-004 RNGOO04 Rod Gam 27-Mar-1984 
3 82 008 . % Add SHOW COUNTERS/DEVICE, SHOW. ac NTERS/ SERVERS and 

i 8S 0083 1! SHOW SERVERS commands. 

; Be 4 44 : Add START/SET NODE_ 1D” command. 

: 86 0086 1 | V03-003 RNGO003 Rod Gamache 14-Mar-1984 
3 4 ef : Fix references to NMADEF. 

: 89 0089 1 | v03-002 RNGOO02 Rod Gamache 2-Mar-1984 
: 3 444 : Add circuit counters. 

: 92 009 v03-001 RNGOOO1 Rod Gamache 31-Jan-1984 
: 1} 
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LATCP LAT Control Program ese 1984 01:49:1 VAX=11 Bliss-32 V4.0-74 Page 3 
v04-000 Definitions ° 12288871382 93:93:38 DL SKSVMSMASTERSLLAT SRCTLATCP.B32:1 7 (2) | 
; © C095 1 XSBTTL ‘Definitions’ 
; 0096 1 
; «98 94 2 | 
ER. 098 1 ! INCLUDE FILES: 
; 100 0099 1! 
; 101 8199 1 
; 196 0101 1 LIBRARY ‘ SYSSLIBRARY :L1B° ; 
3; 1 B136 1 LIBRARY ‘SHRLIBS$:NMALIBRY'; 
; 104 0105 1 REQUIRE ‘OBJS:LATDEF’; 
3 309 0241 1 
; 106 0 tg 1! 
; 107 Oe 1 ! LINKAGES 
; 108 44 1! 
; 109 0245 1 
; 110 0246 1 LINKAGE 
ae tb 0247 1 ALONONPAGED = JSB (REGISTER = 1; REGISTER = 2), 
: 18 0248 1 DEANONPAGED = JSB (REGISTER = 05 
3; Ti bSe8 1 : NOPRESERVE (1,2,3), 
: 114 0250 1 VERIFYCHAN = JSB (REGISTER ='0; REGISTER = 1) 
3; 145 0251 1 : NOPRESERVE (2,3,4,5), | 
: 116 Oose 1 STARTSTOP = JSB ( REGISTER 25) 
s Ti¢7 02535 1 : NOPRESERVE (2,5,4,5,6,7,8,9,10,11) 
; «118 0254 1 ; 
3 119 0255 1 
; 120 0256 1! 
s V2) 0257 1 ! TABLE OF CONTENTS: 
; \s¢ 0258 1! 
; iz 0259 1 
> 124 0260 1 FORWARD ROUTINE 
3 les 0261 1 LCP_MAIN, ! Main entr ; 
: 126 oseg 1 LCP_QUAL ! Convert all qualifiers. 
; 127 0263 1 LCP-GETSTR ! Obtain a string qualifier 
> 128 0264 1 LCP FI E : He a name string qualifier 
> 129 0265 1 LCPR_FINDDRIVER, i Is the port driver loaded? 
; 130 0266 1 LCP_START : NOVALUE, ' Start the driver 
s 131 0267 1 LCP_STOP : NOVALUE, ! Stop the driver 
: 132 0268 1 LCP_SET, ' Set the multicast message 
3: 133 0269 1 LCP-SHOW : NOVALUE, ! Process a SHOW command | 
: 134 0270 1 LCP_EXIT : NOVALUE, ! Exit LCP command 
3s 139 0271 1 LCP_ZERO : NOVALUE, ! Zero the counters ; 
: 136 OS7s 1 LCPR_SET ' Kernel mode set multicast routine 
; 137 0273 1 LCPK-START, i Kernel mode start routine 
; «138 0274 1 LCPK_STOP, ' Kernel mode stop routine | 
; ia 0275 1 LCPK_ZERO : NOVALUE, ' Kernel mode zero routine 
: 140 0276 1 LCPK_STARTHISTORY, ' Kernel mode start history routine 
; «(141 0277 1 LCPK_STOPHISTORY : NOVALUE, ! Kernel mode stop history routine | 
: 196 0278 1 LCPK_IS_LAT_TERMINAL, ' Kernel mode find LAT terminal routine 
7 14 0279 1 LCP_SHOWCOUGUAL : NOVALUE, ' Show counters qualifiers 
3 (144 0280 1 LCP_SHOWCOU : NOVALU ! Show counters 
> 145 0 81 1 LCPSHOWNODECOU : NOVALUE, i Show node counters 
: 146 see 1 LCP_SHOWDEVCOU :NOVALUE, ! Show Ethernet device counters 
3; 147 0283 1 LCPR_SHOWDEVCOU, ! Show Ethernet device counters 
3; «148 oe 1 LCP_BISPDEVCOU, ' Display the Ethernet device ctrs 
3; «(149 5 LCP_FINDCOU, ! Find the counter value 
; 150 36 1 LCP_SHOWSERVCOU : NOVALUE, ! Show LAT Server counters 
: 151 0287 1 LCPTSHOWHIST : NOVALUE, i Show the history at 
3 152 0288 1 LCP_SHOWCHAR : NOVALUE, ! Show the characteristics 
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LATCP LAT Control Program 16-Sep-1984 249: VAX-11 Bliss-32 V4.0-74 Page 4 
v04-000 Definitions ° 13-88-13 93:95:38 NT EKSUMGMASTER SCL AT  SRCSLATCP.832;1 . (2). 
; 153 89 #1 LCP_SHOWSERVERS : NOVALUE, ' Show the LAT Servers 
: 154 90 1 LCPTHELP : NOVALUE, i Give HELP | 
3 135 91 1 LCP_CVTGROUPS : NOVALUE, ! Convert group codes to an ascii string 
: 156 3 1 LCP_FAOOUTPUT : NOVALUE, ! Convert and output a string 
: 157 935 1 LCPR_GETCOUNTERS, ! Obtain counters from driver 
; 158 9 («WI LCPK_GETSERVCTRS, ! Obtain CSB counters from driver 
; 159 95 1 LCPK-GETSERVERS, ' Obtain CSB server information 
; 160 38 1 LCPK_GETHISTORY, ! Obtain history buffer from driver 
: «(161 97 1 LCPK_GETCOMMON ! Obtain common buffer area from driver 
: 16¢ 0298 1 ; | 
; 16 99 1 | 
> 164 89 7% 
; 165 1 1 ! MACROS: 
: 166 8 . | | 
; 167 03035 1 
: 168 8 04 1 MACRO 
: 169 05 1! 
: 170 0306 1 ! Set up a static descriptor 
; 171 b855 1! 
3 \7¢ ™ 0308 1 DESCRIPTOR (STRING) = | 
3 Ht 344 : UPLIT (ZCHARCOUNT (STRING), UPLIT BYTE (STRING))%, 
3; «175 0311 1 ! Set up a dynamic descriptor | 
; 176 o3i¢ 1! 
: 177 m 0313 1 SSETDSC (DSC, SIZE, ADR) = | 
; «#178 40314 1 
: 179 m 0315 1 DSC CDSC$B_CLASS] = DSC _CDSC$B_DTYPE) = 0; 
: 180 m 0316 1 DSC CDSCSW_LENGTH) = SIZE; 
; «6181 ™0317 1 DSC CDSCSA_POINTER] = ADR 
; 133 0318 #1 z, 
; «18 0319 1! 
> «184 0320 1 ! Compare a pair of descriptors 
; 185 0321 1! 
: 186 4 03 ¢ 1 SCMPDSC (DSC1, DSC2) = 
: 187 m 03 1 ( 
BB m 0394 1 CHSEQL | 
; «189 m 0325 1 ( 
: 190 ™ Beso 1 -DSC1 PRSeSw LENGTH) 
> 191 M0327 1 “DSC1 DSCSA_POINTER) 
s 136 ™ 0328 1 MAX ( MIN ( .DSC1 DSC$W_LENGTH), -DSC2 CDOSC$W_LENGTH]), 3), 
3 19 M0329 1 .DSC2 CDSC$A_POINTERJ, | 
3: 194 4m 0330 1 *% 
3 Hb M 0331 : 1. ) 
2 199 0338 1! 
: 198 0334 1! LOG information if requested 
3; 199 te 1! 
3 4 . ; § : LOG_SIGNAL () = 
3 4 . Be } IF (CLISPRESENT (QUAL_LOG) ) 
s 04 4 8 40 1 SIGNAL (ZREMAINING) 
; 205 M0341 1 . 
; 206 4 1 Sx, 
: 207 1 
: 208 m 0344 1 LOG_OUTPUT [) = | 
; 209 m 0345 1 ( 
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LAT Control Program 16-Sep-1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 6 
Definitions 132805=1 986 99:97:38 DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 , (2). 
: 267 03 1 QUAL_LOG = ZASCID "LOG' +: BLOCK C,BYTE), | 
3 68 404 1 QUAL NODE ID = ZASCID "NODE_IDENTIFICATION' : BLOCK C,BYTEJ, 
; $9 405 QUAL NONE = ZASCID ‘none available’ : BLOCK [£,BYTE) 
$ 71 ris] 1 
$ 7 408 1 BIND 
; 2? 409 1 ACTIVE = ZASCID ‘active’ 
i 3th O610 INACTIVE = ZASCID ‘inactive’ | 
; $ 
; 76 brig 1 
: 77 41 1 
3 7 414 1 IND 
: 6 Belz : COUNTERSCTRSTR = ZASCID ZSTRING 
; H+ t oc? i OP’ de C VAY) 
: LCP Node Counters!/!/' 
3 a Lt 04619 1 *!t10UL = Receive frames!/', | 
; «284 t 0420 1 "!t10UL = Receive errors!/', 
; 285 tL 0421 1 "!10UL «Receive duplicates!/', | 
3 86 L 04 ¢ 1 "'10UL Transmit frames!/', 
s eer L 04 1 *!10UL = Transmit errors!/', 
; 288 tL 0424 1 *!'10XL Last transmit failure code!/', 
: 289 t 0425 1 *'70UL Retransmissions!/*. 
: 290 L 0426 1 ‘i10UL = Circuit timeouts!/', | 
; 291 t 0427 1 *!10UL = Protocol errors!/', 
: 292 L 0428 1 "i10XL_ Protocol bit mask!/", | 
; 29 L 0429 1 *'10UL Resource errors! /', 
: 296 Lt 0430 1 "11 0UL No transmit buffer!/', 
: $3? L 8 1 : '10UL Unit timeouts!/', 
; 297 0433 (1 
; 298 0434 1 BIND 
; 444 0436 : ot memes = ZASCID XSTRING | 
s Sol t 0437 1 ZCHAR (CR, LF), 
; $08 tL 0438 1 * Protocol errors include:', 
: $02 L oh44 ' ZCHAR (CR, LF) 
: 305 0441 1 
; 306 0442 1 | 
3 07 044 1 BIND 
: $08 L 946g 1 SERVCTRSIR = ZASCID XSTRING | 
: 310 L 96cg tuys, | 
$ 11 L 0447 1 "LCP Server Counters for !AS!/!/', 
3 \¢ Lt 0448 1 bh Receive frames! /", 
: 1 tL 0449 1 *!'10UL Transmit frames!/', 
: 314 t 0450 1 *!10UL Retransmissions!/', 
: 15 t 0451 1 *!'10UL Out of sequence frames!/', 
: 16 L 26 1 "!10UL_~=—s Invalid messages! /', 
: y { $37 : oj yout Invalid slots!/', 
: 19 55 1 ); 
3 $9 $28 1 
: 1 457 1 
3 $8 £28 1! : 
3; Se 459 1! NOTE: The following 2 tables must be kept in order! 


5 
LATCP LAT Control Program 1-se -1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 7 
v04-000 Definitions at 9 93:95:38 WT EKSUMGMASTER SCL AT SRC SLATCP.B32:1 . (2) 
; 2 4 ° ! : If the counters are to be displayed correctly. 
F $ L 0462 1 DEVCTRSTR = ZASCID &ZSTRING 
3 L 0465 1 ( 
3 8 L 04664 1 "tz" 
3 a L 0465 1 "LCP Ethernet Device Counters!/!/", 
3 0 L rt 1 *!10UL Seconds since last zeroed!/', 
3 1 L 0467 1 *!10UL = Receive frames!/', 
3 ; L 04668 1 "!10UL = Receive errors!/', 
; L 0469 1 *!'10UL Multicast frames received!/', | 
5 Lt 0470 1 *!10UL =Receive bytes!/', | 
; 335 L 0471 1 "I10UL = Multicast bytes received!/", | 
; L t%6 1 *!10UL = Transmit frames!/', 
3 L 0475 1 "!10UL Transmit errors!/', 
; 8 L bee 1 *!10UL Multicast frames transmitted:/', 
: 9 L 0475 1 *!10UL Transmit bytes!/', 
3 0 L be58 1 *!10UL Multicast bytes transmitted!/', 
; 1 L 0477 1 *!10UL Frames sent, singte collision!/*, 
; * L 0478 1 "!10UL_ Frames sent, multiple collisions!/', 
; 34 L 0479 1 *!10UL_ «ss Frames sent, initially deferred!/' 
: 3446 L 0480 1 *i10UL Transmit collision detect check failure!/', | 
$ 5 L 0481 1 "!10UL Data overrun!/', 
; 346 L 0482 1 *!'10UL_ ~=Local buffer errors!/', | 
: 347 L 04835 1 "'10UL System buffer unavailable!/', 
> 348 L 0484 1 "!'10UL User buffer unavailable!/', 
; 9 0485 1 : 
; 350 0486 1 
: 351 0487 1 BIND | 
3 26 0488 1 CTRNAMES = UPLIT 
; 5 0489 1 ( 
5 6354 0490 1 LONG (NMASC_CTLIN_ZER), 
5 55 0491 1 LONG (NMASC_CTLIN_DBR), 
; 36 0492 1 LONG §§ (NMASC"CTLINZRFL), 
s 3 0493 1 LONG (NMASC_CTLIN_MBL), 
; 338 0494 1 LONG § (NMASC"CTLIN-BRC), 
: 359 0495 1 LONG § (NMASC"CTLIN-MBY). | 
: 360 0496 1 LONG (NMASC_CTLIN_DBS), 
; 361 0497 1 LONG (NMASC_CTLIN_SFL), 
3 306 0498 1 LONG (NMASC_CTLIN_MBS), 
; 2 0499 1 LONG (NMASC_CTLIN_BSN), 
: 364 0500 1 LONG (NMASC_CTLIN_MSN), 
; 365 0501 1 LONG (NMASC_CTLIN_BS1), 
3 0206 1 LONG (NMASC_CTLIN_BSM), 
; 367 828 1 LONG (NMASC_CTLIN_BID), 
F 8 504 1 LONG (NMASC_CTLIN_COC), 
3 9 0505 1 LONG (NMASC_CTLIN_OVR), 
; 370 9206 1 LONG (NMASC_CTLIN_LBE), 
; 371 0507 1 LONG (NMASC_CTLIN_SBU), 
; F434 1 LONG (NMASC_CTLIN_UBU), 
; 37 509 1 -1 

3 74 B3i9 1 ); 
3 375 511 1 

; 37 i¢ 1 BIND 
: 37 t 0513 1 RCVERRMASK = ZASCID XSTRING 
; 378 t 0514 1 ( 
: 379 L 0515 1 XCHAR (CR, LF), 
; 380 t 0516 1 " Receive errors include:', 
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=000 Definitions ereeen 1 8Rs 2:87:28 DISKSVMGMASTERSCLAT SRCSLATCP.032;1 2% (28 
; 81 L ie ZCHAR (CR, LF) 
3 S¢ 18 1 ); 
: 19 1 
; 384 8 0 1 IND 
; 85 2 1 } XMTERRMASK = ZASCID ZSTRING 
3 8S L 88 1 ZCHAR (CR, LF), 
; 388 Lt 0524 1 * Transmit errors include:', 
; 34 L Be 5 : ZCHAR (CR, LF) 
: 91 bas$ 1 
3; 83 8 1 BIND 
; Hh L 052¢9 1 faostri = Zascid %string 
; 394 Lt 0550 1 | 
: 36 t 08 : : ‘atl Ti Type Slots Idx $ Idx § $ T 
: : me e Slots Idx Se x Se eq Ack SATA. ca" s 
: 397 t 838 ‘ys 3 ’ Page 
; 398 0534 1 ?P 
; 5399 Lt 0535 1 faostr2 = Zascid string 
: 400 L B398 1 
; 401 t 9537 1 " '74<!2T!> «1 xB 'xB 'XB '!XB 'XB !XB 'XB !XB 'XB 'xB’, 
; 40 t 0538 1 * 'XB 'XB 'XB 'XB 'XB 'XB 'XB 'XB 'XB 'XB ‘'XB 'XB !XB !xXB !/' 
; 40 0539 1 ; 
: 404 0540 1 
>; 405 0541 1! 
: 406 B2e¢ 1 ! List of device names to try in order. A logical name allows us to 
; 407 0543 1 ! define a new datalink device to use or to use a controller other than 
: 408 0544 1 ! the first. 
; 409 0545 1 ! We assume that the UNA is first, and we allow the QNA driver to be 
: 410 0546 1 ! used also. 
; 411 0547 1! 
: tig 0548 1 BIND 
; 41 0549 1 DEVNAMES = UPLIT 
: 414 0550 1 ( 
3 6415 0551 «1 ZASCID ‘LATSDEVICE', 
; 416 b226 1 ZASCID 'XEAO:', 
: 417 0553 1 ZASCID ‘XQA0:', 
: 418 0554 1 0 
: 419 0555 1 ); 

420 0556 1 
; re 0557 1! | 
: 422 0558 1 ! The List of parameters for the datalink driver to start up. We include 
: 423 0559 1 ! the protocol type here as well as the other parameters to allow the device 
: 426 B289 1 ! to be started with or without DECnet. 
: 858 Os62 1 
; 459 O38 1 BIND 
; 428 564 1 SETPARM = UPLIT 
: 429 B202 1 ( 
; 430 566 (1 WORD § (NMASC_PCLI_BUS), ! Buffer size 
; 431 67 1 LONG (1500), 
3 $36 568 1 WORD (NMASC_PCLI_BFN), ! Number of buffers 
; 43 44 1 LONG (1) 
: 434 570 1 WORD  (NMASC_PCLI_PAD) ! Pad short buffers (NO!) 
: 435 571 1 LONG  (NMASC"STATE_OFFS, 
: 436 278 1 WORD (NMASC™PCLI_PTY), ' Protocol type 
3 437 0573 (1 LONG (2x'0480'), ! Digital assigned protcol type 
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v04- Definitions ° 1a-Sep-19 4 93:4 ‘38 DISKSVMSMASTER: CLAT.SRCILATCP.832;1 (2). 
; 4 7% «1 WORD (NMASC_PCLI_PHA), ! Physical address 
; 439 > | WORD (2) ! Length of etring 
: 440 06 1 WORD § (NMASC_LINMC_SDF), i Use default setting 
: 441 7 1 WORD (NMASC_PCLI PRM) ! Promiscous mode 
3 44 0578 1 LONG § (NMASC"STATE_OFFS, 
3 (44 320? 1 WORD (NMASC_PCLI_BCH) ! Data chaining 
: 446 380 1 LONG § (NMASC"STATE_OFFS, 
3; 445 0581 1 WORD (NMASC_PCLI_CRC), ! Generate crc on transmit 
: 446 b258 1 LONG (NMASC_STATE_ON), 
: 447 5 1 WORD (NMASC_PCLI_TON) ! Controller mode 
H “cs 03 ¢ : ras (NMASC-LINCR_NORS ' Normal 
: 450 $8¢ 1 SETPARMEND = UPLIT BYTE(O), 
; $2) £344 ; SETPARMDSC = UPLIT (SETPARMEND = SETPARM, SETPARM) 
; rea 0589 1 
; 454 0590 1! 
: tH B20) : Build a List of Global Host Node protocol error bit values and their names 
3; 457 §398 1 
; 458 m 0594 1 MACRO GHBERRBITS CBITNAME, MEANING) = 
; 459 m 0595 1 SBITPOSITION ( ZNAME ('GHBSV_',BITNAME) ), 
; 460 ™ 9238 1 ZASCID MEANING 
: 461 0597 1 3 
3 reg 0598 #1 
: 46 0599 1 BIND 
3; 4646 0600 1 PROTOCOLBITS = 
: 465 0601 1 UPLIT 
3 0602 1 ( 
: 467 P 0605 1 GHBERRBITS 
: 468 P 0604 1 ( 
: 469 P 0605 1 START, ° Invalid start message received’, 
; 470 0606 1 CSBZERO, ' Zero node circuit index received’, 
> 471 P 0607 1 CSBRANGE, ' Node circuit index out of rang 
; 47 P 0608 1 CSBINVAL ID, : Node circuit sequence invalid’, 
3 47 P 0609 1 SBSTALE Node circuit index no longer valid’ 
3 476 P 0610 1 INVALIDSEQ, Invalid sequence number received in start message’, 
: 475 P 0611 1 HALT, ° Circuit was forced to hait', 
3; 476 p b6t¢ 1 INVALIDREMID, ' Invalid server slot index', 
3: 477 P 0613 1 INVALIDLOCID, ° Invalid node slot index’, 
: 478 P 0614 1 BADCREDITS, Invalid credit field or too many credits used’, 
; 479 P 0615 1 REPCREATE, . Repeat create of slot by server’, 
3 rt} P 2018 ' REPDISC, Repeat disconnect of slot by server’ 
; 48 Ost8 1 0, 0 
; 48 19 #1 ); 
3 «4484 0620 1 
air BOS) 1 i peti l bit ti 
5 ! Define general error eneration macro 
: 3 8 4 1! ° ° 
; 488 +4 4 1 
; 489 ta] 5 1 MACRO ERRBITS CBITVALUE, MEANING) = 
; 690 Ld $ 1 BITVALU 
> 491 Mm 0627 1 ZASCID MEANING 
; 49 8 1 I; 
; 49 0629 1 
: 694 0630 1! 
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} Build a List of Receive error bit values 


LE 


; 1 

3; 6 1! 

; 4 6 1 BIND 

; 4698 634 1 RCVERRBITS = 

; 499 5 1 UPLIT 

; $00 6 $ 1 ( 

; 501 P 06 1 ERRBITS 

3 8 Pp 3 1 ( 

: 50 ia 1 '. * CRC errors’ 

; 504 P 0640 1 | we. prencny errors’ 

; 06 P ' Q. . Frame Length error’ 

: 50 1 00° 

: 508 4 1 ); 

: 509 >» % 

ai? ey 4 | Gutté a ttee of tvenset bit val 
3 ' Bu a list of Transmit error bit values 
: 3ig bed 1 

3 3 1 BIND 

; 14 0650 1 XMTERRBITS = 

3 335 + UPLIT 

3 218 2¢ 1 

3 1 Pp 5 1 ERRBITS 

: 218 P 0654 1 ( 

: 51 P 0655 1 S,. * More than 16 4 hg failures’, 
; 520 Pp 2938 1 i? Loss of carrier 

; 521 P B82 1 ¢ . Unknown’, 

3 2 ¢ P 0658 1 a. Unknown’, 

: P 0659 1 ar, Frame length error’ P 
; 526 P 0660 1 os Late collision’, 

3 ae im ), 

: 526 6 1 0, 0 

; 527 0663 1 ); 

; 528 4 1 
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; 0 665 1! | 
; 1 008 1 ! OWN STORAGE: 
: § 667 1! 
: O98 : 
3 5 of } These are the strings and descriptors used to parse commands and qualifiers. 
; ors 1 OWN 
3 8 0673 1 INPUT_LINE : VECTOR CINPUT_LEN, BYTE) 
; 539 0674 1 INPUT-DSC  : BLOCK POSCSK.7_BLN, BYTEJ, 
; 540 0675 1 CMDBUF _DSC BLOCK BSCSK 27"BLN 8 TE), 
; 241 0676 1 UBCMD : VECTOR CCMDLEN; BYTE), 
; e 677 1 SUBCMDDSC : BLOCK CDSCS$K_2 BLN, BYTE) | 
; 54 0678 1 NAME : VECTOR CGHBSR_RAMELEN, BYTE], 
> 544 0679 1 NAMEDSC : BLOCK COSC$K_7 BLN, 
; 245 680 1 SERV : VECTOR CGHBSR_NAMELEN, BYTE), 
; 546 68] 1 SERVDSC : BLOCK COSC$K_2 BLN, BYT 
: 547 0682 1 1D : VECTOR CGHBSR_TDLEN, eytes. 
; 548 0683 1 IDDSC : BLOCK COSC$K_7 BLN, BYTE 
: 549 0684 1 NODE_1D : VECTOR CGHBSR_TOLEN, BYTE, 
; 550 0685 1 NODE IDDSC : BLOCK CDSC$K_7_BLN ° 
: $51 0686 1 : VECTOR CNUMLEN, BYTE], 
; 228 0687 1 NUMLSTDSC : BLOCK CDSCS$K_2_BLN, BYTE), 
3; 33> 0688 1 
; 554 0689 1 : BLOCK (32, BYTE), 
3; $55 0690 1 RATING : LONG, 
; 556 0691 1 SERVRATING : LONG, 
; 557 0692 1 VERSION : LONG, | 
; 558 0693 1 0 : LONG, 
; 559 0694 1 MCASTIMR : LONG, 
; 560 0695 1 
; 561 0696 1 FLAGS : BLOCK (1, LONG) ! Flags word 
5 266 0697 1 ; 
s 3 0698 1 
: 564 0699 1 LITERAL OUTBUFSIZE = 1024, 
3 #4 $700 ! GRPBUFSIZE = 1024; 
; 567 344 1 ! These data structures are those used in starting, stopping and showing 
3 308 B70e : } the counters, characteristics and history buffer of the driver. 
3 299 0705 1 
s $7 BOS 1 OWN 
: 278 707 1 LCPSL_AREA : REF BLOCK C,BYTE), 
: 57 708 1 AREA = BLOCK CMAX (GHBS$S_COMM_AREA, GHBSK_HISTSIZE 
: ane Ay ! (onsse NAMELENTLCB_C_LENGTH+1) *(GHBSK_ACT_CSBS+GHBSK_INACT_CSBS)), 
: 516 711 «1 AREA_RET_SIZE : LONG, 
: 57 ay 1 OUTOSC :"BLOCK CDSC$K_27_ BLN, BYTE), 
: 18 713 (1 OUTBUF : VECTOR COUTBOFSIZE, BYTE), 
; 714 «1 GRPDSC : BLOCK CoSCSK 7_BLN, BYTE), | 
; 580 715 1 GRPBUF : VECTOR CGRPBOFSIZE, BYTE 
: 5381 rg 1 3 
3 ag 71 1 
s; 38 8 1 
: 584 719 171! 
; #585 720 1 ! EXTERNAL REFERENCES: 
; 586 0721 1! 
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ZSBTTL. ‘LCP_MAIN Main entry point’ 
ROUTINE LCP_MAIN = 


le 


i FUNCTIONAL DESCRIPTION: 


Main entry point for LAT control program. Obtain the command 
and do the 4 dispatch. hie 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

Foreign command read 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


exit status or signalled errors 
SIDE EFFECTS: 
ltdriver controlled or information obtained. 


BEGIN 


LOCAL 
STATUS 


o to see if the driver is loaded. We will also fail early 
f we don't have CMKRNL priv. 


NOT (STATUS = SCMKRNL (ROUTIN = LCPK_FINDDRIVER) ) 
RETURN .STATUS 


el 2) 


= 
x=" 
m 


{ 
' 

t 

$seTDSC (CMDBUF_DSC, INPUT LEN. INPUT LINE); 
2 ,INPUT_DSC) 
Ano -IRPUT_DSC CDSCSWILENGTH) NEQ7O 


BEGIN 
FLAGS CFLAG_L_ALL) = 0; ! Zero all flags 
STATUS = CLISBCL_PARSE(INPUT_DSC, LCP_COMMANDS, LIBSGET_INPUT, 
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LIBSGET_INPUT, LCP_PROMPT); 


Page 


IF _ .STATUS 

CLISDISPATCH (); ! Dispatch on the VERB 
RETURN SS$_NORMAL 
END 


| 

UNTIL (STATUS = CLISDCL_PARSE(O, LCP_COMMANDS, LIBSGET_INPUT, 
LIBSGET_INPUT, LCP_PROMPTS) EQL RMS$_EOF 

| 


IF_.STATUS 
CLISDISPATCH () 


RETURN SS$_NORMAL | 
END: | 


-TITLE LATCP LAT Control Program 
-IDENT \V04-000\ 


-PSECT S$PLIT$,NOWRT,NOEXE,2 


00 00 00 20 3€ 50 43 4C€ 00000 P.AAB: .ASCII \LCP> \<0><0><0> : 
010E0005 00008 P.AAA: .LONG 17694725 : 
00990009" 0000¢ .ADDRESS P.AAB : 
41 4D 4D 4F 43 42 55 53 00010 P.AAD: ASCII \SUBCOMMAND\<0><0> : | 
Q10EQO0A O0001C P.AAC: .LONG 17694730 : 
00000000" 00020 .ADDRESS P.AAD : 
4D 41 4E SF 45 44 4F 4E 00024 P.AAF: ASCII \NODE_NAME\<0><0><0> ; | 
010E0009 00030 P.AAE: .LONG 17694729 : 
00090000" 00034 -ADDRESS P.AAF : 
.AAH: ASC SERVICE_IDENTIF ICATION\<0><0> : 
BOG Dy in eee Miri eee 
010E0016 90050 P.AAG: .LONG 17694742 : | 
00990009" 0054 .ADDRESS P.AAH : 
00 00 53 50 55 4F 52 4 0058 P.AAJ: .ASCII \GROUPS\<0><0> : 
91960006 0060 P.AAI: .LONG 17694726 : 
000 0009" 006% -ADDRESS P.AAJ : 
00 00 47 4& 49 54 41 068 P.AAL: .ASCII \RATING\<0><0> : 
010€000 90070 P.AAK: .LONG 17694726 : 
00000000" 00074 .ADDRESS P.AAL : 
53 SF 47 4E 49 54 41 38 90078 P.AAN: ASCII \RATING_SERVICE\<0><0> : 
019 QOOE 00088 P.AAM: .LONG 17694734 ; 
00 009 ° 99 C -ADDRESS P.AA : 
SF 45 43 49 56 52 4 90 P.AAP: .ASCII \SERVICE_NAME\ ; 
QTOEROOC, OO09C PAO: :LONG 17694 3 : 
000 009 * 000A0 .ADDRESS P.AAP : 
00 00 00 54 52 41 34 QOOA4 P.AAR: .ASCII \START\ <0><0><0> : 
010E0005 OOOAC P.AAQ: .LONG 17694725 : 
00000000" 00080 .ADDRESS P.AAR : 
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Transmit fram\ 

Retrans\ 

Circuit timeouts!/!10U\ 
Protocol bi\ 

Resource errors!/!10UL \ 
Unit timeou\ 


Transmit errors!/!10XL 


\t transmit failure code!/!10UL 
Protocol errors!/!10XL 


\ No transmit buffer!/!10UL 
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><10>\ Protocol errors include: \<13> 


\ts!/\ 
17695084 
ABZ 
3 
<10><0><0><0> 
-ADDRESS P.ACB 
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«ADDRESS P 


Out o\ 


Transmit frames\ 
Invalid messa\ 


Invalid slots!/!/\<0><0> 


Retransmissions!/!10UL 


\ Receive frames!/!10UL 
\f sequence frames!/!10UL 
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1 VAX-11 Bliss-32 V4.0-74 
2 DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 


LONG 1041 
«LONG 1065 
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< 
< 
1 


> 
94748 
C 


1 
1 
10 
se 
13 


<10><0><0><0> 


17694749 
\t7 Time 


\dx Seq Seq Ack DATA...!/\<0><0> 


-ACM 
\ $14<!2T!> 'XB !xXB 


\ IxB 'XB !XB 


\XB (XB ='XB 'XB !XB !XB 


\XB  !XB !XB !/\<0><0> 
17694854 


RESS P.ACO 
WEITER LICE N<O>cee 
17694730 


P.ACR 
\XEAO: \<0><0><0> 
17694725 


SS P.ACT 
\GAP 2 \c0><0><0> 


17694725 


co—co 


rmrw 
ooo 


3><10>\ Receive errors include: \<13> 
I 
><10>\ Transmit errors include:\<13> 
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LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Pa 19 
v04-000 LCP_MAIN Main entry point 18-80-1382 9} 33:58 DT SKSVMEMASTER SCL AT SRCSLATCP.832;1 ” (4). 
004 WORD 4 § 
B48 $2 «WORD 2840 s 
0000000 9 «LONG 1 : 
Bie 98 WORD 4845 : 
ts 3 
00009005 6 Hi “LONG 6 ; | 
8 O8A4 WORD 1110 r 
0000 oP O8A6 - LONG : 
OBAA P.ACX: .BYTE : 
O8AB -BLKB 1 
99000036, QOBAC P.ACY: -LONG 54 : 
61 74 73 20 69 6C 61 76 6—€ 49 20 20 . 2 O8Be P.ADB mark tw lid start ived\<0 r 
es nva start message received\<0> 3 
65 63 65 $9 20 65 85 61 ie f 65 6D 38 4 8C . 3 
00 64 65 76 6 08D 3 
08D «ASCII <O> 3 
O10F 8 0808 P.ADA: .LONG 17694754 : 
63 20 65 64 6F 6& 20 6F 65 5A 29°% 100 OOBEO P.ADD ASCH Ng de circuit ind ived\ : 
. ts ero node circuit index receive 3 
65 $0 20 78 65 64 6E 69 58 74 «69 30 23 7 69 OO8EF 3 
64 65 69 6 $3 O8FE 3 
a4 44 4 0904 P.ADC: .LONG 17694756 é 
0000000° 00908 ADDRESS P.ADD 3 
69 75 63 72 69 63 20 65 64 6F 4E 20 20 so $0 OO90C P.ADF: .ASCII \ Node circuit index out of range\<0> : 
20 6F 20 74 75 6F 20 78 65 64 of 69 20 74 0091B 3 
00 65 67 6E 61 Le; 9d 7 3 
010E0023 00930 P.ADE: .LONG 17694755 ; 
00000000' age ADDRESS P.ADF 3 
69 75 63 72 69 63 20 65 64 6F 4E 20 30 $8 $0 00938 P.ADH: .ASCII \ Node circuit sequence invalid\<0><0> =; 
61 76 6€ 69 20 65 63 6E€ 65 75 71 65 0 74 00947 2 
00 00 64 69 6C 00956 F 
9 00958 ASCII <O> 3 
010E0021 0095C P.ADG: .LONG 17694753 3 
00 30098" Seer ADDRESS P.ADH F 
69 75 63 72 69 63 20 64 4E 20 20 20 § 0964 P.ADJ: .ASCII \ Node circuit index no longer valid- 3 
67 6E— 6F 6C 20 6F 6€ 20 78 65 64 6E 69 3 4 00973 \<0> 3 
69 61 76 20 65 00982 3 
0 494 ASCII ry 3 
010E00 O98C P.ADI: .LONG 17694758 3 
00000000° 00990 “ADDRESS P.ADJ ; ; 
71 65 73 20 64 6C 61 76 6€ 49 20 20 ee § 0994 P.ADL: .ASCII \ Invalid sequence number received in \ ; 
65 72 20 72 65 62 6D 75 6€ 20 65 § of 6 9A3 3 
of 69 2 4 § 6 $ § 9B2 3 
00 65 67 61 65 6D 20 72 61 74 bees «ASCII \start message\<0><0><0> ; 
019 00%s 134 P.ADK: .LONG 17694773 3 
0000000° 009 ADDRESS P.ADL : 3 
73 61 77 20 74 69 75 63 72 69 $3 $9 20 904 P.ADN: .ASCII \ Circuit was forced to halt\<0><0> 3 
74 6C 61 68 20 6F 74 20 64 65 6 2 6F | O34 ; 
4 001 9F4 P.ADM: .LONG 17694750 3 
09 0000" 009F8 ADDRESS P.ADN ; ; 
72 65 73 20 64 69 gc $! 76 6€ 49 38 38 OFC P.ADP: .ASCII \ Invalid server slot index\<0><0> 3 
00 78 65 64 6E 69 20 74 6F 6C 73 6 6 Age 3 
8 A1B ASCII <O> : 


§ 6 oe : Prk Pa | 
hata T2:S7:28 DI SkSmSMASTERSCLAT.SRCSLATCP.032;1 9% «23. voe 


AIC P.ADO: .LONG 17694749 
»ADDRESS P.ADP 
Ag& P.ADR: .ASCII \ Invalid node slot index\<0> 


ASQ P.ADQ: .LONG 17694747 


ADDRESS P.ADR 
AGB P.ADT: .ASCII \ Invalid credit field or too many cre\ 


LAT Control Program 
LCP_MAIN Main entry point 


80 
“CRRBREBR HERB 


A7C P.ADS: .LONG 769 
A »ADDRESS P.ADT 
3 P.ADV: .ASCII Repeat create of slot by server\<0> 


«ASCII \ei ts used\<0><0><0> 
17694 
\ 


Mi 
AAS P.ADU: .LONG 17694755 

-ADDRESS P.ADV . 
ASCII en Repeat disconnect of slot by server- 


WONMO—-"COOONNM "OOS OO FT 


a 
SS SSSSSSSSSSssSsssssssssssssssssssssssss 
>> 
@ Wror 
Oo 
vw 
Pd 
—] 
a 


5 76 72 : OA ; | 
910600 OADS P.ADW: .LONG 17694759 ; 
0000000" OOADC “ADDRESS P.ADX ; 
00000 OAEO P.ACZ: <LONG 0 : 
9090000 ' OAE4 “ADDRESS, P.ADA ; 
SSSR” Gis RES Pn : 
SSSRHHE” St ARFESS Pe 2 
99000000" OOAF “ADDRESS P..ADG | 
Sseerron Goose eS86-40 fed 
SSuHE” oats AREESS Fa ey 
Sane” Sagig—ARRRESS PA : 
Say fl; teas p.wo A 
0900000 * 00B24 “ADDRESS P.ADQ : | 
00000 0828 ; 8 ; 
900000 ' 08 C “ADDRESS P .ADS | 
38 ' 0B “ADDRESS P.ADU : | 
B "LONG 11 : 
0 0 * 008 [ADDRESS P.ADW ; 
09009000 090 0 0B4 “LONG 0, 0 ; 
00 73 72 6F 72 72 65 20 43 $2 4 0 20 O85 P.AEA: .ASCII \ CRC errors\<0><0> : 
010 38 P.ADZ: .LONG 17694734 : 
00 6° 3 “ADDRESS P.AEA : 
72 72 65 20 67 6E€ 69 6D 61 72 6 $e $9 ; Bet P.AEC: .ASCII \ Framing errors\<0><0> : 
10€001 4 P.AEB: .LONG 17694738 : 
74 67 6€ 65 6C 20 65 6D 61 72 & 2 oe . aa78 P.AEE 27) eg le Length error\<0><0> : 
e H ° rame n e 
$3 65 $) 7? $$ $f 88 s : 0888 . 


6F 


20 
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98 
o P.ADY: 
BA 
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5 pa 
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or 
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1:49:1 VAX-11 Bliss-32 V4.0-74 
2 93:95:38 DISKSVMSMASTER=CLAT. SRC LATCP.B32;1 


«LONG 17694742 
»ADDRESS P.AEE 


«LONG 

ADDRESS P.ADZ 

«LONG 1 

ee 

ADDRESS P.AED 

-LONG 0, 0 

ASCII \ More than 16 retry failures\<0> 


«LONG 17694751 
ADDRESS P.AEH 
eASCII \ Loss of carrier\<0> 


-LONG 17694739 
ent P.AEJ 


‘ ie Yosneun\<o> 
«LONG 17694731 
eADDRESS P.AEL 

ASC \ Sosnoun\<ee 
eLONG 17694731 


AEN 
-ASC \ Frame length error\<0><0> 
«LONG 17694742 
ADDRESS P.AEP 
ASCII \ Late collision\<0><0> 


«LONG 17694738 
«ADDRESS P.AER 


LONG 

“ADDRESS P.AEG 
“ADDRESS P.AEI 
“ADDRESS P.AEK 
“ADDRESS P.AEM 
“ADDRESS P.AEO 
“ADDRESS P.AEQ 
“LONG 0, 0 


~m 


wis 


-PSECT SOWNS,NOEXE,2 


00000 INPUT_LINE: 


-BLK 
00400 INPUT_DSC: 
00408 CMDBUF _DSC: 


-BLK 
SUBCMD: .BLKB 
0420 SUBCMDDSC: 
-BLKB 


041 


1024 


co —o 
o 


Pee Se Ge Se Se Se Se Be Se Be Be Be Se Se Be Se Be Se Se Se Be Se Se Se Be Se Be Se Ge Se Se Se Se Se Se Se Fe Se Se Be Se Se Be Se 
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LATCP LAT Control Program 1b-se -1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 22. 
v04-000 LCP_MAIN Main entry point la-Sep- 7 93:99:38 DISKSVMGMASTER-CUAT SRCSLATCP.B32;1 “= rad 
428 NAME: .BLKB 16 : 
438 NAMEDSC:.BLKB 8 : 
440 SERV: .BLKB 16 i) 
4 SERVDSC:.BLKB 8 : } 
458 ID: -BLKB 64 : 
498 IDDSC: .BLKB 2] 
4AQ NODE_ID:.BLKB 64 i] 
4E0 NODE-IDDSC: : } 
. LKB 8 ° 
QO4ER NUMLST: -BLKB 16 | 2] 
4F8 NUMLSTDSC : | 
0500 GROUPS: .BLKB 82 2) 
0520 RATING: . 4 $3 
0524 SERVRATING 7] 
-BLKB 4 71 
0528 VERSION:.BLKB 4 | 31 
b2 co: é B 4 3 1 
0530 MCASTIMR: ee | : } 
00534 FLAGS: | -BLKB 4 | 71 
00538 LCPSL_AREA: . | ; } 
0053¢ AREA: _.BLKB 2560 | 31 
OOF 3C AREA_RET_SIZE 37 
-BLKB 4 37 
OOF4O OUTDSC: .BLKB 8 33 
O0F48 OUTBUF: .BLKB 1024 | 3 
01348 GRPDSC: .BLKB 8 3} 
01350 GRPBUF: .BLKB 1024 | : } 
LCP_PROMPT= P.AAA | 31 
QUAC_SUBCOMMAND= P.AAC $7 
QUAL ~NAME= P.AAE | $3 
QUAL" ID= AAG a) 
QUAL ~GROUPS= ~AA 2. 
QUAL"RATING= P.AAK | 33 
QUAL“SERV_RATING= P.AAM 31 
QUAL~ SERV-NAME = P.AAO 3 
QUAL" START= -AAQ 3 1 
QUAL"STOP= AAS 3 
QUAL" SHOW= P. AAU 31 
UAL"SET= AAW 31 
“ZERO= P.AAY 71 
QUAL ~COUNTERS= ABA 31 
QUAL“HISTORY= P.ABC 3:1 
“CHAR= P. ABE : 1 
“MCAST= P.ABG 31 
QUAL"SERVERS= P.ABI 31 
“DEVICE= P.ABK -1 
L-=NODE= P.ABM 31 
“LOG= P.ABO | 31 
QUAL “NODE ID= P.ABQ | 71 
UAL “NONE = P.ABS 31 
CTIVE= P. ABU 51 
NACTIVE= P.ABW 31 
COUNTERSCTRSTR= ABY 31 


LAT Control Progr tise -1 VAX-11 Bliss-32 v4. Page 23 LAT 
LCP_MAIN Main Satry point mae 1 9}: $3: 38 DISKSVMSMASTER:CLAT. OSACSLATCP. B32;1 ° B v04 
PROTOCOLMASK= P.ACA :1 

SERVCTRSTR= P.ACC | 31 

DEVCTRSTR P.ACE 31 

CTRNAMES= P.ACG ; 

RCVERRMASK= P.ACH 31 

XMTERRMASK= P.ACJ 31 

FAOSTRI= P.ACL | 31 

FAOSTR2= P.ACN 31 

DEVNAMES= P.ACP 31 

SETPARM= P.ACW | 3 1 

SE TPARMEND= PACK 31 

SETPARMDSC P.ACY 31 

PROTOCOLBITS= P.ACZ 31 

RCVERRBITS= P.ADY 31 

XMTERRBITS= P.AEF 31 

-EXTRN CLISGET_VALUE, CLISPRESENT | 31 

SEXTRN OTSSCVTE TI_L, OTS$CVT_L_TI 31 

-EXTRN STRSTRIA STRSUPCASE 31 

"EXTRN LIB$PUT OUTPUT, LIBSFFS | 31 

-EXTRN LIBSS SkPt (Tascet INPUT 3% 

-EXTRN LIBSGET_FOREIGN 31 

-EXTRN CLISDCL7PARSE, CLISDISPATCH 31 

“EXTRN IOCS$VERTFYCHAN, EXESALONONPAGED 31 

-EXTRN EXESDEANONPAGE 3 1 

“EXTRN LCP_COMMANDS, IOCS$GL_DPTLIST 31 

-EXTRN CLIS_ABSENT, LCPS_IVCMD 3 1 

-EXTRN LCPS$_IVQUAL, LCPS$S-NOTLOADED 3 1 

-EXTRN LCPSNOTINITED, LOPS, SET | 31 

-EXTRN LCPS$"NOTSET Leps. STARTED | 31 

-EXTRN LCPS$"NOTSTARTED 51 

.EXTRN LCPS"STOPPED, LCP$_NOTSTOPPED | 31 

SEXTRN LCPS"NOHISTORY, LCPS_NOSTARTHIST :1 

-EXTRN LCPS"NOTFROMLA 31 

~EXTRN tie ROSERVERS.. LCP$_INTERNAL 3 1 

-EXTRN SYSSTMK : , 

.PSECT $CODES,NOWRT,2 ; ! 

007C 00000 LCP_MAIN: 31 

-WORD Save R2,R3,R4,R5,R6 3 0768 | 3 1 

56 000000006 00 9€ 0000 MOVAB CLISDISPATCH, R6 : 31 
55 000000006 00 9E 000 MOVAB CLISDCL PARSE, RS ; 31 
54 000000006 0 9 9010 VAB  LIBSGET INPUT, R4 : 71 
53 0000' cr 9 991 VAB  INPUT_DSC, R3 ; 31 
E p 1C LRL = ( SP) ; 0809 31 

0000v CF 9F 0001 USHAB LCPK_FINDDRIVER ; 31 
000000006 00 FB 000 CALLS #2, SYSSCMKRNL ; 31 
52 DO 00 VE. ORO! STATUS : | .j 
4 E C BLBS STATUS, 1$ ; | 31 
0 D F MOVL STATUS, RO ; 0811 | 3 
B OA 0400 8F 3¢ ; 1$: MOVZWL #1024, CMDBUF_DSC > 0816 | : 1 
o¢ A FCOO )«6—C3CO9E MOVAB  INPUT_LINE, CADBUF _DSC+4 ; | 1 
A FCO 9E F MOVAB INPUT“LINE. INPUT_BSC+4 > 0817 | :1 
DD ‘3 PUSHL R ; 0818 | 3 1 

§ 4 0004 CLRL. = ( SP) : : 1 

08 a3 9F 00049 PUSHAB CMDBUF _DSC ; 31 


7 


Kk 6 | 
LATCP LAT Control Program 16-Sep-1984 749: VAX-11 Bliss-32 V4.0-74 Page 24 L 
v04=000 LCP_MAIN Main Satey point 19-88-1382 93:99:38 DISKSVMSMASTER: CLAT.SRCJLATCP.B832;1 . dB V 
000000006 00 F 4 CALLS #3, LIBSGET_FOREIGN : | 
9 g £8 ° i BLBC 44 S = ; 
6 8 2 TSTW JNPUT_DSC + 0819) 
BEQL $ r 
13%, ¢ p4 O5A CLRL _—s- FLAGS ; 0822 
000" CF 9F 000 PUSHAB LCP_PROMPT + 0823) 
4 DD 0006 PUSHL R4 : 
4 DD 000 PUSHL R4 : | 
00006 cf 9F 00066 PUSHAB LCP_COMMANDS : | 
3 DD 0006A PUSHL R F 
5 FB 0006C CALLS #5, CLISDCL_PARSE : | 
2 D : $f MOVL RO, STAT : 
A E STATUS : 825 
66 9 Fe 007 CALLS #0, CLISDISPATCH + 0827 
11 0007 BRB : 0829 | 
0000" CF 9F OOO7A 2$ PUSHAB LCP_PROMPT : 08 
4 dD O07E PUSHL 4 : 
4 DD 0008 PUSHL 4 : 
00006 cr 9F 0008 PUSHAB LCP_COMMANDS ; 
E D4 000 CLRL = =( SP ; 
$5 FB 008 CALLS #5, CLISDCL_PARSE ; 
2 dO 00088 MOVL 0 TU : 
0001827A BF D4 OO8E CPL TATUS. #98938 ; 
EO g E9 00097 BLBC STATUS, 2$ : 
66 00 FB O009A CALLS #0, CLISDISPATCH : 0839 
DB 11 0009D BRB : 0837 
50 01 DO OO009F 3$ MOVL #1, RO : 0842 
04 000A2 RET > 0844 


; Routine Size: 163 bytes, Routine Base: S$CODE$S + 0000 


> 
ee ee ee ee ee 22> 


<r 
per 

o 
3° 


rol Pro 
DDRIVER 
ZSBTTL ‘LCPK_FINDDRIVER Find the address of the communication area’ 
ROUTINE LCPK_FINDDRIVER = 


'¢ 


'e+ 
! FUNCTIONAL DESCRIPTION: 


Find the address of LTDRIVER and return the address as the value of 
this routine, or return failure. 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
ioc$gl_dptlist 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


6 
-Sep-19 


oO, 
vu 
x 
a 
"oO 
—3 
zea 


— od ot dt 


APAWAAAANM NII 


OOOOCOGOOCOCOCOCOOOCOOSOO rr 
= 


VEWN OO OONAOUNE WH" OVDONOu 


SNS NNN NSS 


WAIN wirornorornorenonoronony 


NOUS WN $0 ODNOUSWN “OO OWOuU Sw 


0 
0 
0 
f 
+44 COMPLETION CODES: 
+444 address of the communication driver 
738 087° SIDE EFFECTS: 
739 pang 
0 087 NONE 
741 0874 
74 0875 -- 
74 0876 
744 0877 BEGIN 
745 0878 
746 0879 ! ; 
! obtain the address of the ltdriver dpt and return the address of 
748 0 ' the counter block. If no ltdriver, then return zero. 
749 088 : 
750 088 
751 0884 ! 
752 0885 ! size and address of the driver name string 
753 0886 : 
754 0887 BIND 
755 0888 DRVRNAM = DESCRIPTOR ("LTDRIVER') : BLOCK C,BYTE) 
756 0889 3 
757 0890 
758 0891 LOCAL 
759 089 DPT : REF BLOCK C,BYTE), 
760 089 DPTEND : LONG 


: scan the dpt List looking for ltdriver by name. 
DPT = 1OCSGLDPTLIST 


DPTEND = JOCSGL_DPTLIST; 
WHILE .DPT NEQ -DPTEND 


Be Se Se Be Ge Be Se Se Ge Se Se Se Se Se Ge Se Se Se Se Ge Ge FH Se He Ge Se Se Ge Se Ge Se Se SH Se Ge Ss Se Se Se Ss Oe Se Se Se Se Se Se Se Se ee Se Se Se Se Sees es 
~“ 
= 


~“ 
= 
~ 
oO 
co 
co 
oO 
PRIPIPIPOPIPOPONDADMININININPIPIPONPININPININININ INIA a st st st st st tt tt tk tt kk tk kt kt 


ram 18 Se 94:49:18 VAX-11 Bliss-32 V4.0-74 
Find the address of the commun 14-Sep-1984 12:37:2 DISKSVMSMASTER: CLAT.SRCJLATCP.B32;1 


} 
| 
| 
| 


| 


| 
| 
| 
| 


<r 


Pad 
ad ad td td ot <= 


) | 


M 6 
LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 P 
v04-000 CCPK_FINDDRIVER® Find the address of the commun 13-808- 138 93:49:38 DIEKSVMGHASTERSCUAT SRCSLATCP.832;1 “ (88 
; 769 90 BEGIN 
3 758 90 IF 
3 46 ape CHER. 
: ae 906 .DRVRNAM CDSC$W_LENGTH], ,DRVRNAM CDSCSA_POINTER), 
: 77% 90 CHSRCHAR (DPT COPTST NAnE , 
: 775 908 DPT CDPTST_NAME] +1, 
: 77 909 
: 77 0910 
: 778 0911 THEN 
; 779 O31§ 4 BEGIN 
; 780 34 4 ! 
; «781 914 & ! address of the counters is found in the longword 
3 re oak ? preceeding the vector. 
: 784 8919 5 IF (LCPSL_AREA = .( (.0PT + .DPT COPT$W_VECTOR]) - 4) ) 
; 785 0918 4 LSS 0 
: ree $920 é THEN TURN SUCCESS 
: res 88 ! ¢ RETURN LCP$_NOTINITED 
: 790 09 4 4 D Y 
: 791 0924 : 
: 79 0925 OPT = .DPT COPTSL_FLINK) 
; 77 0926 END 
: 794 0927 : 
: 795 0928 RETURN LCP$_NOTLOADED 
3; 796 09¢9 
: 797 0930 1 END; 


-PSECT SPLIT$,NOWRT ,NOEXE 2 


52 45 56 49 52 44 54 4C OQOC9C P.AET: .ASCII \LTDRIVER\ : 
00000008 OOCA4 P.AES: .LON 3 
00000000" OOCA8 «ADDRESS P.AET § 

DRVRNAM= P.AES 


.PSECT $CODES,NOWRT,2 
007C 00000 LCPK_FINDDRIVER: 
. WORD 


56 000000006 00 i 9002 MOVAB I0C$GL_OPTLIST., R6 : 
54 66 p 0 MOVL [OCS$GLDPTLIST. DPT : 0898 
55 5 E 000C MOVAB IOCSGL-DPTLIST. DPTEND : 0899 
55 4 D1 OOO0F 1$: CMPL DPT, DPTEND : 0900 
1 13 00012 EQL «ss 4$ : 
50 20 AG OA 0014 MOVZBL 32(DPT), RO : 0907 
OF 0099" CF 20 0018 CMPCS  DRVRNAM, @DRVRNAM+4, #0, RO, 33(DPT) : 
1B 12 00 : NEQ 38 ; 
50 16 AG 3C MOVZWL 30(DPT), R : 0917 
FC A044 9F 00029 PUSHAB =4(RO)COPT ; 
CF 9E D0 0002D MOVL a(SP)+, LCPSL_AREA : 


N 6 
nd the address of the commun 12-828-1 382 94:49:38 biek tyme MSM haSfencclat OSRCSLATCP.B32:1 nae (35 
50 1 p : ROVE Hi, RO : 0908 
50 000000006 : MOVL #LCPS_NOTINITED, RO 
04 0003F 
54 : MOVL (DPT), DPT 
A 004 1$ 


C 
50 000000006 bee : MOVL MLCPS_NOTLOADED, RO 


; Routine Size: 77 bytes, Routine Base: S$CODE$S + 00A3 


wo 
@ 
OTe TE TE Tare rere 
oo oO } 
oo oO 
wr fr 
oo w | 
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LATCP LAT Control Program 1-se ©1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 28) LA} 
04 LCP_QUAL Process multicast qualifiers 1e-Sep-19 4 93: 7:2 DE KSUMEMASTERSCVAT SRCSLATCP.83251 2 (6) | v4 
799 931 1 ZSBTTL "LCP_QUAL Process multicast qualifiers’ :] 
00 98¢ 1 ROUTINE LCP_QUAL = ‘ | : 7 
01 9 1 s 1 
0 934 1 !4+ 3 1 
0° i 5 : FUNCTIONAL DESCRIPTION: : | 
805 9 5 1! Process qualifiers for the multicast message. Convert the qualifiers | : 1] 
B08 34 3 : } to descriptors to set in the driver. : : 
808 $820 1 ! FORMAL PARAMETERS: | $1 
809 0941 1! | gj 
810 hk 1! NONE | 
811 945 1! 31 
sig 0944 1! IMPLICIT INPUTS: 3: 1 
81 0945 1! | 2 1 
814 0946 1! cli processed qualifiers $1 
815 0947 1! 3:1 
816 0948 1! IMPLICIT OUTPUTS: 3 
817 0949 1! | 31 
818 0950 1! qualifier descriptors ® 
819 0951 1! | 3 1 
820 0938 1 ! ROUTINE VALUE: : 1 
821 095 1 ! COMPLETION CODES: : 1 
822 0954 1 31 
82 0955 1! errors signalled 7] 
824 0956 1! $1 
825 0957 1 ! SIDE EFFECTS: 31 
826 0958 1! | ; 1 
827 0959 1: NONE | 31 
828 0960 1! 5 1 
4 0961 } leo 3 1 
830 096 | - 
831 096 BEGIN 37 
S36 0964 s 1 
83 0965 LOCAL 2p 
834 0966 2 BITVALUE, 31 
835 0967 ¢ PTR : REF VECTOR C,BYTE), :] 
836 0968 DSC : BLOCK CDSC$K/2_BLN. BYTE), | 31 
837 0969 STATUS g 1 
838 0970 ; ¢ 1 
839 0971 3; 1 
840 097 ! $1 
841 348 Convert the name to a string and require that we get something ; ! 
Be 0975 IF NOT LCP_GETSTR (QUAL_NAME, NAMEDSC, GHBSK_NAMELEN, NAME, : 1 
He a4 on ZASCID "SYSSRODE', SYI$_NODENAME) : 
Be6 4A | NOT LCP_FIXNAME (NAMEDSC) 21 
4 97 3 | 
eee 980 BEGIN S| 
49 981 SIGNAL (LCP$_IVQUAL, 2, QUAL_NAME, NAMEDSC); 3 | 
850 414 RETURN FAILURE 31 
51 y END 3] 
26 984 : eB 
5 985 1 
854 389 : 3 | 
855 09 ! The node id is optional , 4 


SS = = = - — . = | el 


7 
LAT Control Program 1b-se 1984 01:49:1 VAX-11 Biiss-32 V4.0-74 Page 29 
LCP_QUAL Process multicast qualifiers 12708-1382 93:99:38 DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 . rig 


<- 
<= 


3 9 : $1 
; : 359 LCP_GETSTR (QUAL NODEID, NODE_IDDSC, GHBSK_IDLEN, NODE_ID, : } 
: 898 390 ZASCID "SYSSANNOUNCE", 0)? | : | 
; 860 996 | 3] 
3 36] 93 : The service name is optional | : ! 
; Bes 995 if LCP GETSTR (QUAL SERV NAME, SERVDSC, GHBSKNAMELEN, SERV, | 7] 
; 864 0996 ASTID "SYSSSERVICE_NAME', 0) | : 
i 866 0998 BEGIN | 2] 
; 367 9999 IF NOT LCP_FIXNAME (SERVDSC) | : | 
: 869 1001 4 BEGIN 3] 
; 870 ISRe é SIGNAL (LCP$ IVQUAL, 2, QUAL_SERV_NAME, SERVDSC); :] 
; 871 1003 4 RETURN FAILURE | : 
; 87¢ 1004 4 END | 2 
; 87 1005 3 END : | 
; 874 1006 ; : 
2 : 
: 877 1909 i The service id string is optional too 3 
; 879 1011 LCP_GETSTR (QUAL_ID, IDDSC, GHBSK_IDLEN, ID, %ASCID *SYSSANNOUNCE', 0); : 
: Bes weg # 
; oe iy A Convert the groups as a List of items : | 
; 884 1016 SSETDSC (DSC, NUMLEN, NUMLST); | - 
; 885 1017 STATUS = CLISGET_VALUE (QUAL_GROUPS, DSC); | ¢ 
3 887 1019 5 ' If there is no QUALIFIER for GROUPS, 31 
: 3 1930 2 : Then we will default to enable group code 0 

Py : | 

; 890 1092 : if NOT .STATUS | 

; 891 10 THEN | 

; 892 1024 GROUPS = 1 

3; 89 1025 | 

; B98 1097 GROUPS = 0 | 

; 896 1028 WHILE .STATUS 

; $98 10 3 4 " GIN 

Py | 

; 899 1031 4 STRSTRIM (DSC, DSC, DSC CDSC$W_LENGTH) ); 

; 900 10 : 4 STATUS = OTS$CVT_TE_L (DSC, BITVALUE); 

; 901 193 4 IF NOT . STATUS 

: 90 1035 5 BEGIN 

> 904 1036 5 SIGNAL (LCP$_IVQUAL, 2, QUAL_GROUPS, DSC, .STATUS); 

> 905 1037 3 RETURN FAILURE | 

; 906 1038 END 

mB f 

; 909 1041 4 -BITVALUE LSS 0 

: 911 1048 4 -BITVALUE GTR 255 

; 912 1044 4 THEN 


d 7 | 
LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 30 
v04-000 LCP_QUAL Process multicast qualifiers 12-86-1382 93:99:38 DLEKSVMGMASTERSCLAT SRCTLATCP.B32;1 . (6) 
; 913 1045 BEGIN 
; 914 1 § SIGNAL (LCP$_IVQUAL, 2, QUAL_GROUPS, DSC); 
; 915 1 RETURN FAILURE 
; 918 1048 END 
; 91 1049 4 : | 
; 918 1050 4 GROUPS (CO, .BITVALUE, 1, 0] = TRUE; | 
> 919 1 31 4 SSETDSC (OSC, NUMLEN, NUMLST); 
: 920 1 é 4 STATUS = CLISGET_VALUE (QUAL_GROUPS, DSC); 
; 921 1 3 4 END 
: Ose 1054 . 
; 9 1055 END | 
: 926 1056 : 
; 925 105 
; 926 1058 ! 
: 927 1059 ! The host node rating 
; 928 1060 
; 929 1061 SSETDSC (NUMLSTDSC, NUMLEN, NUMLST); | 
; 9 1068 IF CLISGET_VALUE (QUAL_RATING, NUMLSTDSC) 
; 931 106 THEN 
; 932 1064 BEGIN 
; 93 1065 STRSTRIM (NUMLSTDSC, NUMLSTDSC, NUMLSTDSC CDSC$W_LENGTH) ); | 
> 934 1066 STATUS = OTSSCVT_TI_L (NUMLSTDSC, RATING); 
3; 935 1067 IF NOT .STATUS 
; 936 1068 
3 937 1069 4% (RATING GEQU 255) 
; 938 1070 3 HEN 
; 939 1071 4 BEGIN 
; 940 1072 4 SIGNAL (LCP$_IVQUAL, 2, QUAL_RATING, NUMLSTDSC, .STATUS); 
> 941 1073 4 RETURN FAILURE 
: 94 1074 4 END 
7 9% 1075 3 END 
3 946 1076 : 
7 945 1077 
3; 946 1078 ' 
; 947 1079 ! The service name rating 
: 948 1080 i | 
7 949 1081 $SETDSC (NUMLSTDSC, NUMLEN, NUMLST); 
; 950 108@ IF CLISGET_VALUE (QUAL_SERV_RATING, NUMLSTDSC) 
; 951 108 THEN 
; 95 1084 BEGIN 
7 95 1085 STRSTRIM (NUMLSTDSC, NUMLSTDSC, NUMLSTOSC CDSC$W_LENGTH) ); | 
3; 954 1086 STATUS = OTSSCVT_TI_L (NUMLSTDSC, SERVRATING); 
; 955 1087 IF NOT .STATUS 
: 936 1088 
; 95 1089 4 (.SERVRATING GEQU 255) 
; 958 1090 3 EN 
; 959 1091 4 BEGIN 
3 960 109¢ 4 SIGNAL (LCP$_IVQUAL, 2, QUAL_SERV_RATING, NUMLSTDSC, .STATUS); 
3 961 1093 4 RETURN FAILURE 
3 962 1094 4 END 
; 96 1095 3 END | 
; 964 10% 3 
: 965 1 
: 966 1098 ' 
3 3e8 +444 : Multicast timer setting 
: 969 118) SSETDSC (NUMLSTDSC, NUMLEN, NUMLST); 


<< 

LATCP LAT Control Program 16-50 -1984 VAX-11 Bliss-32 V4. P 1) LA] 
v04-000 LCP_QUAL Process multicast qualifiers 12280-1382 93: $3: 38 DISK $VNSH TER: CLAT. OCRCILATCP. B32;1 = 98 (a) | vo4 
: 970 1 IF CLISGET_VALUE (QUAL_MCAST, NUMLSTDSC) | : 1 
$ gre 11 g THEN we = saan $ ] 
; 3f6 1104 BEGIN :] 
: 97 1105 STRSTRIM (NUMLSTDSC, NUMLSTDSC, NUMLST sc (oscsw. LENGTH) ); 3] 
> 974 1 $ STATUS = OTSSCVT_TI_L (NUMLSTDSC, MCASTIMR : 1 
: 975 11 IF NOT .STATUS : | 
; 976 1108 THEN 31 
: 97 1109 4 BEGIN 3 1 
; 978 1110 4 SIGNAL (LCP$_IVQUAL, 2, QUAL_MCAST, NUMLSTDSC, .STATUS); 3 
: 97 W114 RETURN FAILURE : | 
: 980 1118 4 END 31 
: 38) Wiz 2 ELSE CMCASTIMR GTRU 255) 7. 

° . U | ° 
BoE Pastime 138 10 fait 
> 985 119 3 : 1 
; 986 1118 4 BEGIN s 1 
: 987 1119 4 SIGNAL (LCP$_IVQUAL, 2, QUAL_MCAST, NUMLSTDSC); 31 
; 988 1120 4 ee TURN FAILURE » 4 
: 989 1121 4 END : 1 
; 990 1156 ; END 3 1 
: 991 11 31 
: 99¢ 1124 g : 71 
; 99 1125 a 1 
: 99% 1126 3 SUCCESS :] 
: 995 a 44 :] 
: 996 1128 1 END; | ; 
: 1 
3 1 
-PSECT S$PLITS,NOWRT,NOEXE.2 : : 
45 44 4F GE 24 53 59 53 OOCAC P.AEV: .ASCII \SYSS$NODE\ : 31 
010E0008 O0CB4 P.AEU: .LONG 17694728 : 31 
00990009" OocBS [ADDRESS P.AEV : 31 
45 43 GE 55 4F GE 4E 41 24 53 59 53 OOCBC P.AEX: ASCII \SYS$ANNOUNCE\ : 31 
O10E000C O0CC8 P.AEW: .LONG 17694732 : 31 
00990009" bocce “ADDRESS P.AEX : : 1 
4D 41 GE SF 45 43 469 56 52 45 53 24 53 59 33 docod P.AEZ: ASCII \SYSS$SSERVICE_NAME\ : : 
01060010 OOCEO P.AEY: .LONG 17694736 : 31 
009 0099" OOCE4 “ADDRESS P.AEZ : 31 
45 43 GE 55 4F 4E 4E 41 26 53 59 53 OOCE8 P.AFB: ASCII \SYSSANNOUNCE\ : 3 | 
9106 000¢ OOCE4 P-AFA: .LONG 17694732 : | | 
0000000" OOcF8 -ADDRESS P.AFB ; | 3 | 
-PSECT $CODES,NOWRT,2 : 
OFFC 00000 LCP_QUAL: | .; 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 0932 | 31 
58 999000 06 oP 3 902 MOVAB LIBSSIGNAL, R11 : | 7 
5a 000000006 ge MOVL #LCP$_IVQUAL, R10 : 3 
9 ov 1 MOVAB LCP GETSTR, R9 ; 3 | 
8 00009 6 Oo 9 0015 MOV GTSECVT TIL, RE : | 3 

} 
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DISKSVMSMASTER: CLAT.SRCJLATCP.B32;1 (6 


| 

| 

CLISGET_VALUE, R6 : | 
RS 

| 

| 
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<c- 
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GUAL_GROUPS 
NUMLSTDSC, R4 


SP 
#4313, -(SP) 
P.AEU 
NAM 
#16 
NAMEDSC 
QUAL_NAME 
a6, CCP_GETSTR 
NAMEDSC 
#1, LCP_F IXNAME 
RO, o$ 


NAMEDSC 
QUAL _NAME 


_IDDSC 
QUAL “NODE ID 

#6, CCP_GETSTR 
-(§P) 


6 

SERVDSC 
QUAL_SERV_NAME 
#6, CCP_GETSTR 
RO, 4$ 


a 


SERVDSC 

#1, LCP_FIXNAME 
RO, 4$ 

SERVDSC 

QUAL _SERV_NAME 
10$ 

-(SP) 

P.AFA 

1D 

#64, -(SP) 
1DDSC 

QUAL_ ID 

#6, CCP_GETSTR 


#ié, 
NUMLST, DSC+4 
DSC 


R 
a, CLISGET_YALUE 
RO, STATUS 

STATUS, 5$ 

#1, GROUPS 

13§ 

GROUPS 

STATUS, 13$ 


? | 
é-sep-1984 Pb:97i38 | SNSSiwGaStensclat sacsuarce.a32:1 2% (2. 
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CALLS #2, CLISGET_VALUE 
RO, STATUS 


13$: MOVL #16, NUMLSTDSC 


04 AG FO mest NUMLSTDSC+4 


QUAL RATING 
CALLS #2, CLISGET_VALUE 
8 RO, 16$ 


PUSHL R4 


R4 
CALLS) #3, STRSTRIM 
RATING 


f 
CALLS #2, OTSSCVT_TI_L 
RO, STATUS 


MO 
BLBC STATUS, 14$ 
CMPL RATING. #255 


14$:  PUSHL STATUS 
PUSHAB QUAL_RATING 


MOVL #16, NUMLSTDSC 
MOVAB NUMLST, NUMLSTDSC+4 


RG 
PUSHAB QUAL SERV_RATING 
#2, CLISGET_VALUE 
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LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 oa | 
v04-000 LCP_QUAL Process multicast qualifiers 1 730071382 93:93:38 DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 — a 
2s 0 €9 001 BLBC =—-_s«aRO,«18$ : | 
4 DD 19 PUSHL R4 ; 1085 
4 DD 001 SHL : | 
4 DD 197 SHL = R4 : | 
67 3 FB 001 CALLS #3, STRSTRIM : 
2 «AG OOF 0019¢ PUSHAB SERVRATING > 1086. 
4 DD 0019F PUSHL : | 
$8 FB OO1A1 CALLS 2, OTSS$CVT_TI_L : 
A : 1A BLBt STATUS. $ ; 1087, 
0000006 F af 2c AG DI TAA CHP SERVRATING, #255 : 1089 | 
33 Db Oolee 178:  PHSNL STATUS > 1092 | 
4 00 0186 PUSHL : 
28 «=AS «OF 0018 PUSHAB QUAL_SERV_RATING ; 
ci 11 0188 BRB 15$ : 
64 10 D0 001BD 18$:  MOVL #16, NUMLSTDSC : 1101 
04 AG FO «AG «SE O0IC MOVAB NUMLST, NUMLSTDSC+4 F 
54 DD OO1C PUSHL 4 : 1102 
oocce C5 9F OOIC PUSHAB QUAL_MCAST : 
66 98 FB 0O01CB CALLS #2, CL ISGET_VALUE : 
41 E9 OO1CE BLBC =s_«aRO, 238 : 
34 DD 00101 PUSHL > 1105 
4 0D 00103 PUSHL 4 : 
54 DD 001D PUSHL  R4 : 
67 03 FB 00107 CALLS #3, STRSTRIM : 
38 AG 9F OOIDA PUSHAB MCASTIMR > 1106 
54 DD 00100 PUSHL R4 : 
6 g FB OO1DF CALLS 2, OTSSCVT_TI_L : 
5 D Oi? MOVL RO, STATUS : 
OA 53 £8 OO1E BLBS STATUS, 19$ : 1107 
53 DD OO1E8 PUSHL STATUS : 1110 
54 DD OO1EA PUSHL R4 : 
ooce C5 9F OOTEC PUSHAB QUAL_MCAST : 
8C 11 001FO BRB ; 
OOO000FF BF 38 AS D1 001F2 19$:  CMPL  MCASTIMR, #255 3 1114 
06 1A QO1EA BGTRU ; 
OA 38 «=A «D1 OOTFC CMPL NCASTIMR, #10 : 1116 
10 18 00 99 BGEQ 23$ : 
54 DD 00 02 208 PUSHL 4 > 1119 
oocc CS 9F 00 PUSHAB QUAL _MCAST ; 
92 DD 00208 21$:  PUSHL # ; 
A DD O020A PUSHL R10 ; 
6B 94 fo 9 ¢ CALLS #4, LIBSSIGNAL ; 
0 D4 F 22% CLRL = RO > 1120 
04 00 11 RET : 
50 01 00 \2 238 MOVL #1, RO > 1128 
04 0021 RET ; 
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Process a string value for a qualif 1o-808-1 982 93:99:38 DLEKSVMEMASTERSELAT SRCILATCP.B32:1 sa hit 


DSC COSCSW_LENGTH] = 0; 
Fa FAICURE 
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' 

! Translate the name in case its a logical name 
SSETDSC (RDSC, .SIZE, .STR); 

DECR DCX FROM 10 To { 

DSC, .DSC, DSC COSCSW_LENGTH) ); 


= .DSC, RSLLEN = RDSC CDSCSW_LENGTH], RSLBUF = RDSC); 
TUS EQL SS$’NOTRAN 
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BEGIN 
SIGNAL (LCPS$_IVQUAL, 2, .QUALDSC, .DSC, .STATUS); 
— FAILURE 


if NOT .STATUS 
THEN 
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! 
! Trim off the treit ton spaces and look for an indirect or untranslated 
logical name. If either, then just return none available. 

STRSTRIM (.DSC, .DSC, DSC _COSCSW_LENGTH) ); 
PTR = DSCSA_POINTER); 


-DSC ¥ ; 
DSC$W_LENGTH); 


LEN = .DSC 
! 
Scan the name and translate the non-printables to spaces 


DECR DCX FROM .LEN - 1 T0 0 


BEGIN 
1 | ellie TRUE OF 


-PTR C.DCX] LSS ° "J : PTR C.DCXJ = ° '; 
Sp IMERUL SES : 0; 


END | 
DECR DCX FROM .LEN TO 0 


BEGIN 
IF .PTR CO] EQ * ° 
THEN 
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-PSECT S$PLITS,NOWRT ,NOEXE,2 


\SYSS\ 
~-EXTRN SYSSTRNLOG, SYSSGETSYIW 


-PSECT $CODES,NOWRT,2 


ASCII 
GETSTR: 


24 53 59 53 OOCFC P.AFC: 


; 1130 
1205 


O1FC 00000 LCP_ 


Save R2,R3,R4,R5,R6,R7,R8 
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A, RB 
LOG, R7 
SP 
R4 
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R 
GET_VALUE 
$ 
SYSSTRNLOG 
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SYSSTRN 
4 
L 
T 
6 
P 
Pp 


STRSTRI 
#32 6 
DSC 
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LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 p 9. 
LCP_GETSTR Process a string value for a qualif 12-86-1382 93:93:38 DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 _ a 
00000629 8F $2 D1 00054 MeL STATUS, #1577 ; 1221) 
A 1 B BNEQ § : 
18 AC OD D 1$: TSTL sy1D 3 1223 
3] 1 6 BEQL ; : 
08 AE 5 8B 6 MOVW RS, ITMLST i 1226 
A AE 18 AC 8B MOVW  SYID, ITMLST+2 + 122: 
OC AE 1 AC D 068 MOVL STR, ITMLST+4 : 1228 
10 AE 54 D0 000 MOVL 4 LIM ST +8 : 1229 
146 AE D4 074 CLRL —«ITMLST+ + 1230 
7E 7C 00077 LRQ = =( SP) : 1232 
08 AE 9F 00079 PUSHAB 10SB : 
14 AE 3 9007¢ PUSHAB ITMLST : 
7E 7C O007F CLRQ = = (SP) : 
43 D4 9008} CLRL = (SP) : 
000000006 00 07 FB 0008 CALLS #7, SYSS$GETSYIW : 
22 oF 3¢ OO0BA MOVZWL 10SB, STATUS : 1234 
5 50 C8 0008D BISL2 RO, STATUS ; 
04 52 (£8 90090 BLBS = STATUS, : 1233 
64 B84 00093 28 CLRW (R4) t 1243 
49 11 90095 BRB 5$ : 1244 
18 AE 55 3C 00097 3$: MOVZWL RS, RDSC : 1253 
1C AE 10 AC 00 0009B MOVL STR, RDSC+4 : 
5 OA DO O00A0 MOVL #10. DCX + 1254 
54 DD 000A3 4$: PUSHL R4 : 1257 
54 DD 000A5 PUSHL R4 ; 
54 DD 000A7 PUSHL R4 : 
68 03 FB S00A9 CALLS #3, STRSTRIM F 
7E 7C OOOAC CLRO 30 _ = (§P) : 1259 
7E D4 OOOAE LRL = = (SP) : 
24 AE 9F 000B0 PUSHAB RDSC : 
28 AE 9F 00083 PUSHAB RDSC : 
54 DD 00086 PUSHL R4 ; 
67 06 FB 00088 CALLS #6, SYSS$TRNLOG : 
52 50 DO 0008B MOVL RO, STATUS : 
00000629 = &F 52 D1 0008 CMPL STATUS, #1577 : 1260 
1E 13 000C BEQL F 
18 52 £8 900¢7 BLBS STATUS, 6$ : 1264 
52 DD OOOCA PUSHL STATUS + 1267 
54 DD 000CC PUSHL R4 ; 
04 AC DD OO0CE PUSHL QUALDSC ; 
02 DD 00001 PUSHL @# ; 
000000006 8F DD 000D3 PUSHL #L CPS IVQUAL F 
000000006 00 9 FB 00009 CALLS #5, LIBSSIGNAL : 
; 11 OE 5$: RB 5 + 1268 
BE 53 F5 000E2 6$: SOBGTR DCX, 4$ + 1264 
34 DD OE 7$: PUSHL R4 : 1277 
4 DD OO0E7 PUSHL R4 : 
54 DD 000E9 PUSHL  R4 : 
ra 03 FB OOEB CALLS #3, STRSTRIM : 
50 66 p OOEE MOVL (R6), PTR : 1278 
52 $4 C 000F1 MOVZWL (R4). LEN : 1279 
51 2 b6 O0F4 MOVL EN, DCX : 1289 
OA 11 000F7 BRB $ ; 
20 6140 91 OO00F9 8$: CMPB ss (DCX) CPTRI, #32 : 
4 3 OOFD BGEQU ; 
6140 09 6 FF MOVB #32, (DCX)CPTRI : 
F3 1 F4 00103 9$ SOBGEQ DCX, 8$ : 1286 
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LATCP LAT Control Program 16°5$ 
v04-000 LCP_F 1XNAME Process a name string 1228 
54 1 OD 3 
C9 4 Pe 2096) 3$: 
$B sesee 
000000006 00 0 + 28 
i 1 4F 
51 6267 z 2] 4$: 
41 8F 1 91 $3 
2 iF 00058 
3 be O00sF SS 
SA OSE 1 BF $061 
3 1A 00065 
dg 0067 
55 4 D2 00069 6$: 
50 5 CA Baper 
01 50 D1 4 
g8 13 00072 
4 04 00074 
30 51 91 30076 
02 1F 0007 
54 06 00078 
50 D4 0007D 7$: 
39 51 91 0007F 
96 1A 00082 
50 06 00084 
55 54 D2 00086 8$: 
50 55 CA 00089 
01 50 D1 0008C 
of 13 0008F 
SF sé 1 91 00091 
08 13 00095 
24 51 91 00097 
03 13 OQ009A 
50 D4 0009C 
04 $4 84: 
AF 52 F4& OOOSF 9$ 
50 01 DO QOOA 
04 OOOA 


SCODES + 0462 


#1, STATUS 
STATUS, % 
R 
, , STRSUPCASE 
(DCX) CPTRI, R1 
R4 
R1, #65 
5$ 
R4 
RO 
6$ 
RO 
R4, R5 
R5, RO 
RO. 
9$ 
R4 
R1, #48 
7$ 
R4 
RO 
R1, #57 
aS 
RO 
R4, RS 
R5, RO 
RO. #1 
9$ 
R1, #95 
9$ 
R1, #36 
9$ 
RO 
DCX, 4$ 
1, 
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rs 16-Sep-1984 9}: 9:1 VAX-11 Bliss-32 ye Oeree 
T Start the terminal port driver 14-Sep-1984 12:37:2 DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 


rr 


Check if this is a START HISTORY command 


TOSC (SUBCMDDSC, CMDLEN, SUBCMD); 


) 
US = CLISGET VALUE (QUAL _SUBCOMAAND, SUBCMDDSC); 


STATUS EQL CCI$_ABSEN | 
BEGIN | 
; Get the qualifiers and set them 


iF NOT- (STATUS = LCP_SET () ) 
RETURN | 


—OOONOUESWD “OOOO UEWN—O 


on 

-000 TA 
3 1 1409 1 ZSBTTL ‘LCP_START Start the terminal port driver’ 
3 ; 1 1919 : GLOBAL ROUTINE LCP_START : NOVALUE = 
: 1 4 1916 1 te4 
3 } ¢ 1ehz : FUNCTIONAL DESCRIPTION: 
3; 1 1415 1! Handle the general START request and the START HISTORY request. 
: 128 1238 1 ! If it is the general start request, then set the multicast message 
; 1288 141 i! data and then start the port driver. If it's the START HISTORY 
3 ’ 4 1018 : } request, allocate the history buffer. 
3: 1291 1420 1 ! FORMAL PARAMETERS: 
3 1 35 1421 1! 
: 129 14 ¢ 1! NONE 
3: 1294 14 1! 
: 1295 14246 1°! IMPLICIT INPUTS: 
3 1 38 1425 1! : 
: i 4 1? $ : } results from qualifier parse and address of driver comm area 
3: 1299 1428 1 ! IMPLICIT OUTPUTS: 
: 1300 1429 1! | 
: 1301 1430 1! NONE 
3 1 4 } 11! 
3; 130 ¢ 1 ! ROUTINE VALUE: 
: 1 1 1 ! COMPLETION CODES: 
3; 1305 1434 1! 
: 1306 1 $ 1! NONE 
; 1307 1436 1 | | 
3; 1308 1 HH 1 ! SIDE EFFECTS: 
; 1309 1438 1! ‘ 
3; 131 1439 1! driver started 
; 131 1440 1! 
3; 131 1441 1 !e=- 
3; 131 1 $g 1 
3: 131 144 BEGIN 
: 131 1444 
3; 131 1445 LOCAL 
3; 131 1 46 STATUS 
: 131 144 ; | 
3; 131 1448 
31 1449 ! 
3 1 1450 : 
if 1282 ‘ 
: 1 1 § 
3 1 1454 
i] 1286 
3 1 1 $ 
; 1 1458 
2 1 1459 
3 1 1460 4 
a. 1 
: 1 1 4 
| 1 
3 1 1 
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LATCP LAT Control Program 16-Sep-1984 249: VAX-11 Bliss-32 V4.0-74 p 5 
v04-000 LCP_START Start the terminal port driver 107388-1382 93:93:38 DT SKSVMSMASTER<CLAT SRCILATCP.B32; 1 ae (33 
. ! 
: } 3 1266 ; Now start the port driver 
31 1468 4 if (STATUS = SCMKRNL (ROUTIN = LCPK_START) ) 
: 1340 146 TH 
: 1 1470 oe LOG_SIGNAL (LCPS$_STARTED) 
; ! 5 1606 SIGNAL (LCPS_NOTSTARTED, 0, .STATUS) 
5 1345 1474 END 
: 1 46 1475 ELSE 
31 1476 BEG! 
; i 2 1477 STRSTRIM (SUBCMDDSC, SUBCMDDSC, SUBCMDDSC CDSCSW_LENGTH) ); | 
: 1350 1479 ' Dispatch on the subcommand strin 
: 1 21 1480 i “ . 
31 ; 1481 SELECTONE TRUE OF 
; 135 1488 SET 
; 1 24 14 3 3 C SCMPDSC (SUBCMDDSC, QUAL_HISTORY) J : 
; i 26 1485 3 IF NOT (STATUS = SCMKRNL (ROUTIN = LCPK_STARTHISTORY) ) 
: 132% 1487 4 SIGNAL (LCPS_NOSTARTHIST, 0, .STATUS) 
: 1359 1488 4 : 
: 1360 1489 j; | 
: 1361 1490 
:1 ’ 1491 COTHERWISE] : SIGNAL (LCPS_IVCMD); 
; 136 1436 
: 1364 149 TES; 
; 1368 1496 3 | 
31 1495 END 
3; 1367 1496 2 . 
: 1368 1497 1 END; | 
03FC 00000 .ENTRY LCP_START, Save R2,R3,R4,R5,R6,R7,RB,R9 : 1410 
59 000000006 00 9€E 0000 MOVAB LIBSSIGNAL, R9 F 
38 000000006 00 9€ 900 MOVAB SYSSCMKRNL, R8 ; 
5 0000' CF 9€ 9019 MOVAB QUAL _HISTORY, R7 : 
56 0000" CF 3 0001 MOVAB SUBCADDSC, R& ; 
be 10 00 OOO1A MOVL #16, SUBCMDDSC : 1452 
04 Ab FO AG SE 9010 MOVAB  SUBCMD, SUBCMDDSC+4 ; | 
36 DD PUSHL R6 : 1453 
FF20 9F 00024 PUSHAB QUAL_SUBCOMMAND ; 
000000006 99 ; FB 00 8 CALLS #2, CLISGET_VALUE F | 
DO O002F MOVL RO, U : | 
000000006 &F 3 D1 3 cHPL TATUS, #CLIS_ABSENT > 1454. 
0000v cf F CALLS #0, LCP_SET > 1460 | 
5 D 4 MOVL RO. STATUS ; 
01 5 f 004 BLBS STATUS, 1$ ; 
4 46 RET : | 
7E p4 47 1$: CLRL = = (SP) ; 1468 | 
cf F 00049 PUSHAB LCP START : | 
2 FB 00040 CALLS #2, SYSSCMKRNL 3 


50 


3; Routine Size: 


rol 
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209 bytes, 


8 
Program 18- Sep- 
Start the terminal port driver 14-Sep- 
5 i) 
33 3 9 
68 A ia 
000000006 00 1 43 
D 0€ 
00000000G 8F 0 ? 
$8 DD 6B 2$: 
E D4 6D 
20000000G 8F ODD bof 
4C 11 000 ; 
° DD $7 3$: 
dD 79 
g DD 00078 
000000006 98 03 =FB Boe 
0 96 3C 00084 
50 67 861 00087 
03 IE oeee 
50 of 3C 0008C 
03 ° B1 OOO8F 4$: 
0 if 0092 
50 03 00 00094 
54 D4 00097 5$: 
046 B86 66 2D 00099 
06 B67 0009F 
02 12 OQOOA1 
54 D6 000A3 
01 54 D1 OOOAS 6$: 
1D 12 QOOA8 
7E D4 QOOAA 
0000vV CF 9F QOOAC 
68 96 FB 00080 
55 5 44 00083 
17 55 €E8 000B6 
55 DD 00089 
7E 04 00088 
00000000G 8F DD 80088 
9 03 FB O00C3 7$: 
04 Boece 
00C00000G 8F DD O000C7 8$: 
9 01 FB 49 9$: 
04 00000 10$: 


Routine Base: 


SCODES + 0508 


1984 1:49:16 VAX-11 Bliss-32 V4.0-74 
1984 12:37: DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 
MOVL RO, STAT 
BLBC  _—« STATUS 3 
PUSHAB QUAL_LO 
CALLS g ISPRESENT 
PUSHL su CPS STARTED 
PUSHL STATUS 
PUSHL #LCPS_NOTSTARTED 

RB 7 
PUSHL R6 
PusHt RG 

ALL a STRSTRIM 
MOVZWL SuBCH CMDDSC 
CAPM QUAL MATS TORTS RO 
MOVZWL QUAL_HISTORY, RO 

MPW RO, #3 
BGECU 
OVE a5, RO 
CMPCS Suacnops¢ ASUBCMDDSC+4, #32, RO, - 

@QUAL_HISTORY+4 
BNEQ 6$ 

INCL = RG 
CMPL =sR4, 1 
ae 
PUSHAB LCPK_STARTHISTORY 
CALLS #2, SYSSCMKRNL 
MOVL RO, STATUS 
BLBS STATUS, 10$ 
CREE SSP) 

USHL Hi CPS NOSTARTHIST 
CALLS . LIBSSIGNAL 
PUSHL aLCPS IVCMD 
CALLS . LIBSSIGNAL 
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8 
LATCP LAT Control Program shese “19 1:49: VAX-11 Bliss-32 V4.0-74 Page 48 
v04-000 LCP_STOP Stop the port driver 12786871382 93:93:38 DL aKSVMEMASTER-CLAT SRCSLATCP.B32; 1 . (10) 
; 1427 1555 ' 
[14 8 1 6 one 
: 1 : We cannot stop LAT from a LAT terminal 
: 1431 1 § $SETDSC (DSC, STRSIZE, STR); 
: 14 ¢ P 1560 STRNLOG 
: 14 P 1 2 ( 
: 16 Pp 1 4 LOGNAM = TTNAME 
> 1435 P 156 RSLLEN = DSC CDSCS$W_LENGTH), 
3 14 P 64 RSLBUF = DSC 
: 16 1366 IF CHSEQL (4, UPLIT (ZASCII *_LTA'), 4, STR) 
: 1440 1 68 ra (SCMKRNL (ROUTIN = LCPK_IS_LAT_TERMINAL) ) 
+ 1461 1 5 3 THEN 
: 144¢ 1570 4 BEGIN 
> 146 1571 4 SIGNAL (LCP$_NOTFROMLAT); 
+ 1464 1572 4 RETURN 
Nees 137. 3 
; 1ae9 1575 , 
: 1448 1326 SCMKRNL (ROUTIN = LCPK_STOPHISTORY); ! Delete the history buffer 
; 1456 1894 ' 
: 103) to } Stop the LTDRIVER 
: 1438 1381 é if (STATUS = SCMKRNL (ROUTIN = LCPK_STOP) ) 
: 1455 1383 4 LOG_SIGNAL (LCP$_STOPPED) 
> 1456 1584 ELS 
: 1657 1385 SIGNAL (LCPS$_NOTSTOPPED, 0, .STATUS) 
: 1459 1587 END | 
> 1460 1588 ELSE 
> 1461 1589 i 
: 146 1590 ' This is a STOP HISTORY command. 
> 146 1591 i 
+ 1464 1398 BEGIN 
: 1465 1393 STRSTRIM (SUBCMDDSC, SUBCMDDSC, SUBCMDDSC CDSC$W_LENGTH) ); | 
; 1267 1595 i Dispatch on the subcommand string | 
3; 1468 1298 : 
: 1469 159 SELECTONE TRUE OF 
> 1470 1598 SET 
; 1471 159 ; C SCMPDSC (SUBCMDDSC, QUAL_HISTORY) J : 
: 1478 1601 SCMIKRNL (ROUTIN = LCPK_STOPHISTORY) 
+ 1475 160 : 
; 1476 1604 COTHERWISE] : SIGNAL (LCPS_IVCMD); | 
3 147 1605 
$ 1478 1606 TES: 
+ 1479 160 
ie igs = 
3 14 3 1610 ‘ 
: 16 1611 END; 


T Control Any ty 1b-5e 
P_STOP St he port driver -Sep-19 


SSeS :GR:08  YMECAUABALR TGR? SRS ance. oses1 PP and 


<r 
oF 


.PSECT SPLITS, NOWRT ,NOEXE,2 | 


a es eee 


54 54 4 P.AFE: iti \TT\ : 
8 9002, 00004 P..AFD: "LONG ; | 
000090" D08 ADDRESS P.AFE F 
41 ODOC P.AFF: <ASCII  \_LTA\ : 
TTNAME= P.AFD 

| 


-PSECT SCODES,NOWRT,2 


O1FC 00000 .ENTRY LCP STOP Savg R2,R3,R4,R5,R6,R7_RB : 1499 ; 

58 000090006 00 9E 0000 MOVAB Liessi : ; 

000' CF 9E 000 MOVAB eras “aistony R7 : : 

36 000000009 60 9 00006 ROVAR  SYSSCRKANL. i : | 

3 28 C3 OO1A SUBL ; : ; 

6 Q p 001D MOVL 6, SUBCMDDSC + 1548 : 

04 AS FO} 36—AS) «(9E 000 9 MOVAB EMD, SUBCMDDSC+4 : : 

38 DD 000 PUSHL + 1549 ; 

FF20 (C7? OF 00 7 PUSHAB Qua UBCOMMAND : ; 

000000006 99 92 FB 00 CALLS At ecer _VALUE : : 
DO 000 MOVL A ; : 

000000006 &F 3¢ D1 a03¢ cMPL STATUS. #CLIS_ABSENT : 1550 : 
30 AE 20 6 00 MOVL #32, DSC + 1559 3 

4 AE gE 9E 0004 MOVAB STR. DSC+4 ; ; 

E 7C 0004 CLRQ ss =( SP) : 1565 : 

7E ps 004 CLRL = = (SP) : : 

2 AE 9F O004A PUSHAB DSC F ; 

0 AE 9F 0004D PUSHAB DSC : : 

0cd8 C7? 9F 00050 PUSHAB TTNAME : ; 

000000006 00 06 FB 00054 CALLS #6, SYS$TRNLOG ; 3 
6E 0C10 c? D4 0058 CPL P.AFF, STR > 1566 : 

a p4 O0¢e CLRL = = (SP) : 1568 ; 

O000v CF 9F 00064 PUSHAB L Pk 1S_LAT_TERMINAL ; : 

ry. : FB 0068 CALLS YSSCMKRNL : 3 

08 E 99 BLBC : : 

000000006 F bp 00 E 1$: PUSHL ii _NOTFROMLAT : 1571. : 

7E p4 0076 2$: CLRL (SP) : 1576 ; 

0000v CF 9F 0007 PUSHAB 1sPhefl STOPHI STORY : : 

2 FB O007C CALLS SCMKRNL : : 

E p4 7F LRL > 1581 ; 

0000v CF 9F 1! PUSHAB LCP : 3 

$6 F 5 CALLS #2, SSC MKRNL 3 3 

: D0 000 MOVL RO, STAT : : 

1 : LBC  —s STATUS : : 

000000006 00 as 01 re 91 CALS. Fie et TSPRESENT ares : 
9? 95 8 8098 BLBC —E._—«aRO. 108 : ; 


iio enetitinandeneamantiiimiomnstian — 


K 8 | 
“Seap ke cart Griet 1ergeb= 1382 Phi GFi 8 Ned AAS FERS cl Ae sacSuarce.e32:1 mab 


000000006 8F pp PUSHL #L CPS_STOPPED : 
A RB 9 : 
DD O00A3 3S: PUSHL STATUS + 1585 
D4 OOOA CLRL =(SP) : 
000000006 i DD OOOA PUSHL ’ CP$_NOTSTOPPED : 
68 3 FB AD CALLS , LIBSSIGNAL ; 
04 0008 RET ; 1550 
DD 00081 4$ PUSHL 5 : 159 
DD 0008 PUSHL 5 : 
DD 0008 PUSHL RS : 
000000006 03 FB 0008 CALLS STRSTRIM : 
3¢ OB MOV ZWL suéch MDDSC, RO + 1599 
8 C CMP QUAL HISTORY, RO : 
: E 000C4 BGEQU ; 
5 : 3¢ 00¢6 MOVZWL QUAL_HISTORY, RO : 
0 81 00C9 5$: CMPW ORO, 3 : 
‘ 00CC BGEQU 6 ; 
50 DO OOOCE MOVL #5, RO ; 
i ps 0001 6$: CLRL ; 
50 20 04 BS 65 2D 00093 CMPCS SUBCMDDSC ASUBCMDDSC +4, #32, RO, F 
04 87 0009 @QUAL_HISTORY+ : 
2 12 00008 BNEQ 7$ : 
4 D6 00000 INCL RG ; 
01 54 01 OOODF 7$: CMPL =sRG, #1 : 
OA 12 000E2 BNEQ 8s : 
E D4 O000E4 CLRL (SP) + 1601 
0000v CF 9F OO0E6 PUSHAB LCPK. STOPHISTORY : 
2 FB OOOEA CALLS #2, SYSSCMKRNL 3 
04 O00ED RET + 1600 
000000006 8F DD OOOEE 8s: PUSHL #LCPS IVCMD + 1604 
68 01 FB OOOF4 9$: CALLS , LIBSSIGNAL 3 
04 OOOF7 10$: RET + 1611 
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T Set nutticast information 19-38-38 93:45:38 PIEKSUMGMASTERSCU AT SRCSLATCP.832:1 age 43 
LCP_CVTGROUPS (); 
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! Set up the parameter List and report the qualifier information 


LULVIVSIVSUSUSISIS 
Ft et et et ee ee 
Mur 


on 

E 
3 1 1 
[4 160 
if 18) 
; : § 1678 that we are about tc set. 
: 1548 1675 PLO) = NAMEDSC; 
> 1549 1676 Pf1} = SERVDSC: 
: 1550 167 P 3 = NODE_IDDSC; 
; 15 1 1678 prs) = ippst: 
: 1 ‘ 167 P[4) = GRPDSC; | 
: 1383 set PCS) = .MCASTIMR; | 
: 1555 16 SSETDSC (DSC, STRSIZE, STR); | 
> 1556 1868 
: 188 P ERs vie. | 
: 1559 L 1686 CTRSTR = X%ASCID 
Be bg i 
: 136¢ L 1689 "!/LCP Qualifier Summary!/!/', 
: 156 Lt 1690 "Node name = '18<\!AS\!> Service mame = !18<\!AS\!>!/', 
3; 1564 L 1691 "Node Identification = \!AS\!/' 
3; 1565 L 169 "Service Identification = VIAS\ Ts", 
Be big tease Slate» 108 seconds 
$ " cas =! Wy 
; 1365 4 gee outaut DSC mi om 
: 1570 P 1697 OUTLEN = DSC. | 
: 1571 P 1698 PRMLST = PLO4 
Be 18 3 | 
> 1574 1701 LOG_OUTPUT (DSC); 
eo | 
: 1577 1704 i Call the kernel mode routine to set the information in the 
in Cena ae | 
3 1380 1707 if NOT (STATUS = SCMKRNL (ROUTIN = LCPK_SET) ) 
; 1382 1709 SIGNAL (LCP$_NOTSET, 0, .STATUS) 
: 158 1710 3 
eS 
3 1386 1718 LOG success if requested | 
: 1388 1715 LOG_SIGNAL (LCP$_SET); | 
: 1590 1919 SUCCESS | 
: 1591 1718 | 
> 1592 1719 1 END; 


| 
| .PSECT $PLITS,NOWRT ,NOEXE,2 | 
72 65 69 66 69 6C 61 75 51 20 50 43 4C 2F 21 QODIO P.AFH: .ASCII \!/LCP Quatifier Summary!/!/Node name = !\ ; 


n 8 | ; 
LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Pa 3) LA 
v04-000 LCP_SET Set multicast information 12288871382 93:93:38 DLSKSVMSMASTERSCLAT SRCSLATCP.B32:1 9435 vo 
64 6F GE 2F 21 2F 21 79 72 61 6D 6D 75 53 20 OODIF : : 
1 20 3 26 65 6D $1 ge 0 g Dg : | : 
65 53 20 sp %0 3 ; + 2 34 } § . + eASCII = \1B<\<92>\IAS\<92>\!> Service name = \ 3 ; 
6F 4E : ay 5 zi se 53 ef 31 t sc 33 ii eh $038 eASCII = \!E18<\<92>\!AS\<92>\!>!/Node Identifica\ : > 
53 2F 21 3¢ : 41 21 3¢ 2 $3 29 3 gf $9 4 083 LASCII \tion = \<92>\!AS\<92>\!/Service Identi\  : | : 
69 74 3 $9 4 6 : 6 $ ‘ 65 0007F ; : 
53 41 A i 0 3 9 of gf ? i 61 i $6 OD8¢ sASCII \fication = \<92>\!AS\<92>\!/Groups = !\ | : 
7% 2 4 3 1 é3 9 74 6 5 4D 2F 1 3 (41 ODA8 eASCII \AS!/Multicast timer = 'UB seconds!/\<0> : ; 
6F 63 65 73 20 4 $2 21 55 3D 20 of $3 6D 69 00087 : | ; 
00 2F 21 64 6€ O0DC6 : : 
01060088 ODCC P.AFG: .LONG 17694907 : ; 
00000000 00DD0 .ADDRESS P.AFH : ; 
.EXTRN SYSSFAOL : 
-PSECT $CODE$,NOWRT,2 ; 
001¢ 00000 .ENTRY LCP_SET, Save R2,R3,R4 : 1613 ; 
54 000000006 00 9E 00002 MOVAB LIBSSIGNAL : : 
53 000000006 00 9€E 00009 MOVAB CLISPRESENT, R3 : : 
5E FD98 CE 9E 00010 MOVAB -616(SP), SP : : 
FAOS CF 00 FB 00015 CALLS #0, LCP_QUAL + 1661 ; 
52 50 DO OO01A MOVL RO, STATUS : 3 
04 52 €8 0001D BLBS STATUS, 1$ : ; 
50 52 dO 00020 MOVL § STATUS, RO > 1663 ; 
04 00023 RET : : 
0000v CF 00 FB 00024 1$: CALLS #0, LCP_CVTGROUPS : 1669 ; 
aa 0000" CF 9E 00029 MOVAB NAMEDSC? P + 1675 ; 
04 AE 0000' CF 9E 0002E MOVAB SERVDSC, P+4 : 1676 : 
08 AE 0000' CF 9E 90034 MOVAB NODE_IDDSC, P+8 : 1677 ; 
OC AE 0000" CF 9E OO03A MOVAB IDDSC, P+12 : 1678 : 
10 AE 0000" CF 9€ 00040 MOVAB GRPDSC, P+16 : 1679 : 
14 AE 0000" CF DO 00046 MOVL MCASTIMR, P+20 : 1680 : 
F8 AD 0200 8F %C 0004C MOVZWL #512, DSC > 1682 ; 
FC AD 60 AE 9E 0005¢ MOVAB STR, DSC+4 : : 
SE DD 0005 PUSHL SP : 1699 : 
F8 AD 9F 00059 PUSHAB DSC : : 
F8 AD 9F 0005C PUSHAB DSC ; 3 
0000" CF 9F 0005F PUSHAB P.AFG : : 
000000006 00 04 FB 00063 CALLS #4, SYSSFAOL : : 
0000' CF 9F 9006A PUSHAB QUAL_LOG : 1701 : 
63 1 FB 06E CALLS #1, CLISPRESENT ; : 
OA 0 : 00071 BLBC —s_ RO, 2$ ; : 
F8 AD SF 00074 PUSHAB DS ; : 
000000006 00 Qi FB 00077 CALLS #1, LIBSPUT_OUTPUT ; : 
E D4 OOO7E 2S: CLRL —_ = (§P) : 1707 | : 
0000v CF 9F 00080 PUSHAB LCPK_SET ; 3 
000000006 99 93 FB 0084 CALLS 2, SYSSCMKRNL ; | 3 
DO 00088 MOVL RO, STATUS ; : 
0D 2g E8 OOO08E BLBS STATUS, 3$ ; : 
3 DD 00091 PUSHL STATUS : 1709 | : 
E D4 0093 CLRL. = = (SP) ; | 3 
000000006 8F DD 0009 PUSHL #LCP$_NOTSET ; | ; 
64 03 FB 00098 CALLS #3, LIBSSIGNAL ; : 


Nee nee eer Se ee - 
9 
4045000 LEP SET See moltieast information 1B-Se0-1984 Ph: 9Fi38 WNL GhaSteRcclat secduarce.e32:1 2% 133 


0000" CF 9F 3$: PUSHAB QUAL LOG 3 1715 
3 1 FB A CALLS #1, Wy PRESENT : 
9 0 € A BLBC RO, 4 : 
000000006 BF DD 000A8 PUSHL #LCP$_SET : 

64 01 FB OOOAE CALLS #1, LIBSSIGNAL ; 

50 01 DO 00081 4$: MOVL #1, RO : 1719) 
04 00084 RET : 
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LATCP LAT Control Program 16-Sep-1 
v04-000 LCP_SHOW Process a SHOW command 1278687138 
; i 17% C SCMPDSC (SUBCMDDSC, QUAL_HISTORY) J : 
: 16 177 CP_SHOWHIST () 
3: 16546 1780 tt ne 
: 1655 1781 
; 16 6 7 ; C SCMPDSC (SUBCMDDSC, QUAL_CHAR) ] : 
: 1658 7 4 LCP_SHOWCHAR QO 
> 1660 17 : 
; 1661 1787 C SCMPDSC (SUBCMDDSC, QUAL_SERVERS) ] : 
; 1868 ihe LCP_SHOWSERVERS () 
+) es , 
> 1666 1798 COTHERWISE] : SIGNAL (LCPS_IVCMD); 
> 1667 179 
: 1668 179% TES 
> 1669 1795 
: 1670 179% 1 END; 
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LCP_SHOW, Save R2,R3,R4,R5,R6,R7,R8 
SUBTMDDSC, RB 

QUAL_COUNTERS, R7 

#16, “SUBCMDDS 

suBcMD, SUBCMDDSC +4 

QUAL SUBCOMMAND 

#2, CLISGET_VALUE 

STATUS, #CLT$_ABSENT 


1$ 
SUBCMDDSC 
R8 


RS 

i 

#3, STRSTRIM 
SUBCMDDSC, RS 
SUBCMDDSC4+4, R6 

R e RO 

QUAL COUNTERS. RO 
QUAL COUNTERS , RO 
RO, # 


3$ 
#3, RO 


R4 
RS, (R6), #32, RO, @QUAL_COUNTERS+4 


R4, #1 
#0, LCP_SHOWCOUQUAL 
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R5, RO 

QUAL HISTORY, RO 
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a. FS. 0 0 

i RO 

R5, (R6), #32, RO, @QUAL_HISTORY+4 


RG, #1 
#0, LCP_SHOWHIST 


R5, RO 
QUAL_CHAR, RO 
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RO, aS 


11$ 
43, RO 
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RS, (R6), #32, RO, @QUAL_CHAR+4 
128 

R4 

R4, #1 

13 

#0, LCP_SHOWCHAR 

RS, RO 

QUAL SERVERS, RO 

QUAL SERVERS, RO 

RO, 
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#3, RO 


R 
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LAT Control Program 1B-se -1984 01:49:1 VAX-11 Bliss- P 
Kernel mode routine to set multicast 1 =3007} 382 93:99:38 DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 


ZSBTTL ‘LCPK_SET Kernel mode routine to set multicast data’ 
ROUTINE LCPK_SET = ween Ps 


'ee 
: FUNCTIONAL DESCRIPTION: 


Kernel mode routine to set the information in the buffer of the driver. 


i FORMAL PARAMETERS: 


i IMPLICIT INPUTS: 


results of the qualifier parse 


i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i SIDE EFFECTS: 


qualifier results set for multicast 


BEGIN 


LOCAL 
ZERO, 
ON 


TWO 
THIATY_TwO, 
LT : REF BLOCK C,BYTE), 


PTR, 
STR : REF BLOCK C,BYTE) 


ZERO = 0; ONE = 1; TWO = 2; THIRTY_TWO = 32; 
Address of the buffer in the driver 


LT = .LCPSL_AREA; 
PTR = STR =".LT CGHBSL_NODE); 


: Copy the multicast timer, host node status and group codes 

PTR = CHSMOVE (Fe MCASTIMR, .PTR); |! Set timer and no host node status 
PTR = CHSMOVE (1. THIRTY TWO, .PTR);' Thirty-Two bytes of group code 
PTR = CHSMOVE (32, GROUPS, .PTR); ‘' Copy group codes 


i Copy the host node name and descriptor here 


Be Se Se Se Be Se Se Se Se Se Se Be Be Ge Fe Se Se Se Se Se Se Se Se Ge Se Se Ge Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se Sees esete Se ee Fe Se Se Se eeeseas 
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LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 60 
v04-000 LCPK_SET Kernel mode routine to set multicast 182388-1 382 93:93:38 DLSKSVMSMASTERSCLAT SRCSLATCP.B32: 1 . (14) 
: 1770 1898 BTR = CHSMOVE (1, NAMEDSC CDSCSW.LENGTHJ. PTR) 
; = * oO . f 
3 1776 1 36 PTR = CHSMOV ye foseea LENGTH), 
3; 177 189 NAMED DSCSA porurerd, PTR); 
: 1774 1 4 PTR = CHSMOVE (1, NODE IDDS Pac W LENGTH], .PTR); 
: 1775 1 PTR = CHSMOVE (.NODE_IBDSC COSCSW_LENGTH) 
; 1776 ! Q -NODE-IDDSC CDSCSATPOINTERS, .PTR); 
: re ' § If we have an service name, then report 2 service names here 
3 17 1 IF .SERVDSC CDSCSW_LENGTH] NEQ 0 
: 1781 1905 THEN 
3 17 ¢ 1 PTR = CHSMOVE (1, TWO, .PTR) 
3: 17 190 ELSE 
3; 17 1208 PTR = CHSMOVE (1, ONE, .PTR) 
: 1785 190 3 
3 17 1910 
3: 17 1911 ! 
; 1788 1316 ! Copy the first service rating, name and ID here 
3 a4 ba } will use the host node name as the first service name 
3; 1791 1915 PTR = CHSMOVE (1, RATING, .PTR); 
; 1798 1916 PTR = CHSMOVE (1, NAMEDSt CDSC$W_LENGTH], .PTR); 
3; 179 191 PTR = CHSMOVE (.NAMEDSC CDSC$W_LENGTH), 
3 1794 1318 -NAMEDSC agin POINTER], .PTR); 
3 1795 191 PTR = CHSMOVE (1, IDDSC COSCSW_LENGTH], .PTR): 
; 1796 1920 PTR = CHSMOVE (.fDDSC COSCSW_LENGTHJ, .10DSC CDSCSA_POINTER], .PTR); 
3 1798 19 ¢ ! 
3; 1799 19 ! If there is an service name, then build it and its rating as the 
3 1300 13 : second service name 
: 1306 19 § IF .SERVDSC CDSCS$W_LENGTH] NEQ 0 
: 180 19 THEN 
3 1804 1928 BEGIN 
3; 1805 1929 PTR = CHSMOVE (1, SERVRATING, .PTR); 
> 1806 1930 PTR = CHSMOVE (1 SERVDSC CDSC$w_LENGTH], .PTR); 
> 1807 1931 PTR = CHSMOVE (- SERVDSC DSC$W_LENGTH) 
; 1808 193@ sSERVDSC CDSCSA_POINTERI, PTRS; 
; 1809 193 PTR = CHSMOVE (1, ZERO, .PTR) ! No ID for the second service name! 
3 ini? 1934 END 
3; 1811 1935 3 
: 1 i 19 
: 181 19 ! 
3 : i 4 3 } Now build the service classes 
:1 6 1940 PTR = CHSMOVE (1, ONE, .PTR); ! One byte of service class 
: 181 1941 PTR = CHSMOVE (1, ONE, .PTR); ! Enable service class 0 
3 1318 1386 
3; 1819 194 ‘ 
3 18 ? Ite Store the total size of the data 
3: 1 § Hb 4 STR C-2, 0, 16, 0] = .PTR = .STR; 
3: 1 194 
> 1824 1948 ‘ ‘ 
: 1825 1949 ' Call the set entry of the driver 
: 1826 1950 ! 


; Routine Size: 159 bytes, Routine Base: S$CODE$ + 0897 
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LATCP LAT Control Program rhese -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 p 1 
v04-000 LCPK_SET Kernel mode routine to set multicast 132800- 138. 93:93:38 DLSKSVMGMASTERSLLAT SRCILATCP.B32:1 age 48) 

; ' 7 133 STARTSTOP (.LT CGHBSL_SETENTRY]); | : 

: } § 1988 Ignore the return from the driver for now. It doesn't mean anything | ; 

2 1831 1955 SUCCESS | ; 

3 1 19 $ 

: i8 § 1989 END; ‘ 

— eee Ss R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11 1838 

. ave e . ° . o * - o * oe ° 

7E D4 00002 CLRL ZERO + 1880 : 

by] 1 00 00004 MOVL #1, ONE 3 : 

SA 2 DO 00007 MOVL We TwC : : 

50 DO OO00A MOVL #32, THIRTY_TwO : : 

57 0000" CF 00 0000D MOVL L CPs. AREA, “LT + 1884 F 

36 1¢ A? DO 00012 MOVL (LTT, STR : 1885 : 

5 56 DO 00016 MOVL STR, PTR : : 

83 0000" CF 80 0019 MOVW  MCASTIMR, (PTR)+ + 1889 F 

83 50 90 OO01E MOVB THIRTY TWO, (PTR)+ + 1890 ; 

63 0000" CF 20 eb 0021 MOVC3 #32, GROUPS, (PTR) + 1891 : 

83 9000: CF 0 00027 OVB. NAMEDSC, (PTR)+ + 1895 ; 

63 0000" DF 000" CF 0002¢ MOVC3 EDSC, @NAMEDSC+4, (PTR) + 1897 : 

83 0000' CF 90 909 4 OVB_ NODE_IDDSC, (PT : 1898 : 

63 0000" DF 0000° CF ¢8 0039 MOVC3  NODE-IDDSC, @NODE_IDDSC+4, (PTR) + 1900 ; 

58 0000" cr C 00041 MOVZWL SERVBSC, R8& + 1904 3 

9 04 90046 CLRL—s RO : : 

58 D5 0004 TSTL = RB : : 

07 13 O004A BEQL =s«1$ : : 

59 06 0004¢ INCL R99 : : 

63 5A 90 0004€ MOVB TWO, (PTR) + 1906 : 

03 11 00051 BRB $ : 3 

63 5B 90 00053 1$: MOVB ONE, (PTR) + 1908 : 

53 D6 00056 28: INCL PTR : : 

83 0000' CF 90 00058 MOVB RATING, (PTR)+ + 1915 : 

83 0000' CF 90 0005p MOVB. NAMEDSC, (PTR)+ : 1916 : 

63 0000" DF 0000" CF 38 00062 MOVC3 NAMEDSC, @NAMEDSC+4, (PTR) : 1918 3 

83 0000" CF 90 0006A MOVB. IDDSC, (PTR)+ : 1919 : 

63 0000° DF 0000° cr 28 b006F moves Ips @IDDSC+4, (PTR) 3 190 : 

83 9000" CF 30 00074 MOVB  SERVRATING, (PTR)+ : 19¢9 : 

0000' CF 90 0007F MOVB SERVDSC (PTR) + : 1930 ; 

63 0000" DF 58 @8 90084 MOVC3 RB, @SERVDSC+4, (PTR) : 193¢ : 

83 6— 90 O008A MOVB ZERO, (PTR)+ : 19 ; 

83 5B 90 0008D 3$: MOVB ONE, (PTR)+ : 1940 : 

83 SB 20 9090 MOVB. ONE, (PTR)+ > 1941 : 

FE AG 53 56 =A3 0009 SUBW3 STR, PTR, -2(STR) + 1946 : 

04 87 16 00098 asi + 1951 : 

50 01 D0 00098 MOVL ® : 1957 : 

04 0009 ET F | : 
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*LCPK_START Kernel mode start routine’ 
— LCPK_START = 


oO 

vw 
WOOD xX 
ze ef 
°o 


Soo 


'e¢ 
! FUNCTIONAL DESCRIPTION: 


r 

& 

% 

R 

' 

' 

! 

! This routine is called in kernel mode to start the driver. 

! First it checks to see if the terminal driver is already active 
: by looking at the Timer Active flag. If 

' the device is not active, then a channel is assigned to the 
: data Link device (a List of possible device names is tried) and 
! 
! 
' 
! 
! 
! 
' 
' 
' 
! 
' 
' 
! 
' 
' 
! 
t 
L 
' 
! 
' 
' 
' 
' 


3 


nw” 
RIPIPIPIMIPIPIPYIAIAPININPYPINPIPIPIAPIPIIAY ss rl i i i kk id dk td at at ot 2 ot = = = —— 


a 


She ucb for the data Link device is passed to the terminal port 
river. 


i FORMAL PARAMETERS: 


LESS 


i NONE 

i IMPLICIT INPUTS: 

i LCPSL_AREA 

i IMPLICIT OUTPUTS: 
NONE 


Ntvtrty ety tytytyeny $4 
OONA VE WN ("OOOO UE WN Oo 


MMA 
DOODOOOOOOOOOOO 
COCOONS 
WO ODNOUES WNC OW 


i ROUTINE VALUE: 


a ek ee ed ed ed od od dd 


860 

861 84 

506 985 ! COMPLETION CODES: 

86 44] ' 

864 98 success or failure code 

865 988 ! 

B06 989 ' SIDE EFFECTS: 

86 990 ‘ 

868 991 NONE 

869 338 

870 99 + 

871 994 

a76 995 BEGIN 

87 996 

874 997 LOCAL 

875 998 LT : REF BLOCK C,BYTE) 

876 B99 10SB : VECTOR (4, WORDJ, 

877 000 CCB : REF BLOCK [,BYTEJ, 

378 sd UCB : REF BLOCK (,BYTE), 
§ ORB : REF BLOCK [,BYTE), 


STATUS, 
DEVCHAN : WORD 


Ssase 


SSESSEEEes 


ee ec ee a ee ee ee ee ce ee a ee ee ee ee ee ed a ed ed nd 


8 ! 
oN : If the timer active flag is present, then the port driver is active. 
011 LT = .LCPSL_AREA; 
Og IF .LT CGHBSL_TIM_ACT) NEQ 0 
330 3 THEN 
91 14 RETURN SS$_DEVACTIVE 


ram tbese 1984 01:49: VAX=-11 Bliss-32_ V4.0-74 Pa 2. 
hel mode start routine 1 7350-1982 93:93:38 DL SKSUMSMASTER-CLAT SRCSLATCP.B32;1 948 
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LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Pa 3 

v04-000 LCPK_START Kernel mode start routine 10-388-1382 93:99:38 DLSKSVMSMASTER-CLAT SRCSLATCP.B32;1 7155) 

Hm RIE 

: ! % 1? i Try each of the device names in turn | 

; 1896 9 DEV = DEVNAMES; 

: 189 0 WHILE ..DEV NEG O | 

3 3 i 1 dO 

; 1 § BEGIN 

3; 1 STATUS = SASSIGN (DEVNAM = ..DEV, CHAN = DEVCHAN); 

; 1901 4 IF .STATUS 

3 1308 5 THEN 

3 : g EY ITLOOP 

: 1905 0 8 Dev = .DEV + 4 

3 1298 0 END 

: 1308 I i 

; 44 3 ¢ If we never did find a device, then return the error 

: 1911 054 if NOT .STATUS 

; 1918 036 RETURN .STATUS 

: 1918 038 i 

: 1916 039 i Startup our protocol on the datalink device 

3 191 040 $ 

5 1318 : oh vos = $0]0W 

: 1920 P 068 FUNC = I0$_SETMODE OR IOSM_CTRL OR IOSM_STARTUP, 

3 1921 P 2044 CHAN = .DEVCHAN, 

3 19 ¢ P 2045 10SB = IOSB, 

3 Z P oe8 re = SETPARMDSC 

> 1925 048 "Yeas 

; is 049 : senewains bad happened, so deassign our channel and then 

: 13 i Bey return the error 

F 19 9 05¢ if NOT. STATUS 

; 1931 054 renee” ( STATUS = .10SB C01) 

F 1933 096 BEGIN 

3; 1934 05 SDASSGN (CHAN = .DEVCHAN); 

3 1986 oe6 —— STATUS 

: 19 060 : 

; 1938 061 ! 

3; 1939 oes ' Call a handy system routine to find the datalink ucb address 

§ 136? bez : by obtaining the channel control block 

: 1948 065 JOCSVERIFYCHAN (.DEVCHAN: CCB); | 

1948 066 UCB = .CCB CCCBSi_UCB); | 

+ 1945 068 i Call the start entry point of the port driver | 

; Hb 099 : and if successful, then fix the ucb so it can stay around 

; 1948 071 STATUS = STARTSTOP (.LT CGHBSL_STRENTRY], .UCB); 
| 
| 


rc 
> 
“4 
o 
vw 
o>, 
v~ 
x 
o 
> ded 
2-4 
=o 


LAT Con 
LCPK_ST 
: 1949 07 IF .STATUS 
wm 6 gn ete 
: 19 75 BES! Cuces. PID) = 0; 
: 19 ¢ ud: ORB = UCBCUCBSL ond 
: 1954 7 ORB CORB$L_OWNER] = %X'10004'; 
: 19 © i: ORB ORBSU- PROT = ait FFO" 
| BRE 
3 1988 0 § Deassign our channel to the datalink ucb 
: 1961 O82 $DASSGN (CHAN = .DEVCHAN); 
; 1966 085 RETURN .STATUS 
3; 196 ba6 
: 1964 087 1 END; 
.EXTRN 
*EXTRN 
OFFC 00000 LCPK_START: 
WORD 
5E 10 ¢2 0000 SUBL2 
56 0000" CF DO 0000 MOVL 
18 A6 DS OOO0A TSTL 
06 13 0000D BEQL 
50 02c4 8F 3C OO00F MOVZWL 
04 00014 RET 
52 0000" CF 9E 00015 1$: MOVAB 
62 D OO01A 2$: TSTL 
19 13 Q001C BEQL 
7E 7C OOO1E CLRO 
0c AE OF 90020 PUSHAB 
62 DD 00023 PUSHL 
000000006 00 04 FB 90085 CALLS 
57 50 DO 0002c OVL 
08 57 Es 0002F BLBS 
52 04 ¢€0 000 2 ADDL2 
E3 11 000 BRB 
6A 7 E9 00037 3$: BLBC 
7E 7C OOO3A 4$: CLRO 
7E 7 900 C CLRQ 
0000' cr 9F 00 3 PUSHAS 
» oe 0004 CLRO 
7E D4 00044 CLRL 
28 AE 9F 00046 PUSHAB 
7E 0263 «BF 3¢ 0049 MOVZWL 
7E 2¢ AE 3¢ ue MOVZWL 
7E D4 09 CLRL 
000000006 00 FB 54 CALLS 
7 D 098 MOVL 
8 £9 6 E BLBC 
08 AE § 61 MOVZWL 
1 @ ‘ 0065 BLBC 
0 04 AE 3C 00068 MOVZWL 


% 
U Program start routine 1B-Sen-1984 01:48:16 vA 


VAX-11 Bliss-32 V 
SKSVMSMA 


SYSSASSIGN, SYS$Q10W 
SYSSDASSGN 


v) 
#4, SYSSASSIGN 
0; STATUS 
STATUS, 4$ 

rN DEV 
STATUS, 6$ 
=(SP) 


= (SP) 
we} ara 


i grt 
STATU ¥ 
lose. seratus 
STATUS, 5$ 
DEVCHAN, RO 


TER: Laie she LATCP.832;1 


rte af 


052 
054 


2065 


» - 
LATCP LAT Control Progr 16-Sep 4 VAX-11 Bliss-32 V4. Page 65 
v04-000 LCPK_START Kernel mode start routine 12-8 Sep- 71882 9}: $3: 8 DISKSVMSMASTER cvate sae LATCP.B32;1 ° 8} 
000000006 0 1 JSB IOCSVERIF : 
6 D MOVL = CC” uC : 
p MOVL OU : 
7 JSB a : 
57 7B MOVL R F 
18 7 BLBC_ F 
50 6E § 1 ADDL3 #4 F 
D4 CLRL (ROS : 
51 gf . ft ADDL3 #28, UCB, R1 + 2076 
61 09 MOVL (R15, ORB F 
60 00010004 8F D OO8E MOVL #6 34g (ORB) : 2077 
18 AO 10 AE 0009 MNEGW #16, 24(ORB : 2078 
7E 04 AE 3C 00099 5$ MOVZWL DEVCHAN, -(SP) + 2084 
000000006 00 01 FB 0009D CALLS #1, SYS$DASSGN ; 
50 57 DO OOOA4 6$ MOVL STATUS, RO : 2085 
04 000A7 RET + 2087 


; Routine Size: 168 bytes, Routine Base: $CODE$ + 0936 


U—DWOL FR: OWOO 
“+ o~ we 
cur ~< 
cuz Mm 
or >ew 
o- 
> wc 
CRUD @~<« xt 
» oO 
Oo = 
P 
2 
Mor Mor } 
AN NO 
-o 


<r 
oOo» 


Be Se Be Se Se Be Se Se Se Se Se Se Se Se Se Se Se Fe See Ge Se Fe Se Se Ge Se Ge Ge Sse Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sees Fe Se Se Se ee seas 
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LATCP LAT Control Program 16-Sep-1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 66 
v04-000 LCPK_STOP Kernel routine to stop the port driv 14-Sep-19 4 93: 7:2 DLSKSVMSMASTERSCLAT SRCSLATCP.B32:1 . (16) 
3 1 1 ZSBTTL ‘LCPK_STOP Kernel routine to stop the port driver’ 
1369 89 1 ROUTINE LCPK STOP = <1 gett 
: 1369 1 1 !46 | 
; dA 03 : } FUNCTIONAL DESCRIPTION: | 
: 1376 94 1: This routine is called in kernel mode and calls the shut entry point 
: ed 04 : in the ltdriver to stop all circuit and run things down. 
: 1975 097 1 i FORMAL PARAMETERS: 
3; 1976 098 1! 
; 1977 099 1! NONE 
; 1978 100 1} 
3; 1979 101 1 =! IMPLICIT INPUTS: 
: 1980 198 1 | 
: 1981 103 1! LCPSL_AREA 
3 1386 2106 1! 
; 198 sioe 1 ! IMPLICIT OUTPUTS: 
3: 1984 106 1! 
3; 1985 2107 1! NONE 
3; 1986 108 1! 
: 1987 109 1 ! ROUTINE VALUE: 
; 1988 110 1 ! COMPLETION CODES: 
; 1989 111 1! 
; 1990 \N¢ 1! success or failure code 
; 1991 11 7 | 
4 1336 114 1°! SIDE EFFECTS: 
3; 199 as Fs 
3: 1994 2116 1! NONE 
3 1995 2117 1! 
3: 1996 sii8 1 le- 
3; 1997 119 #1 
3; 1998 $139 2 BEGIN 
3; 1999 ‘a, OU 
; 4 $158 § LITERAL DEVNAMSIZE = 16; | 
; 200¢ 124 BIND 
; Spor \¢3 DEVNAMCTR = DESCRIPTOR (*!AC!UW") 
: 2005 127 : 
3; 2006 128 2 LOCAL | 
; 2007 $1$3 2 LT : REF BLOCK C,BYTE), 
; 2008 130 DEVNAMSTR : VECTOR CDEVNAMSIZE, BYTE), 
: 2009 131 DEVNAMDSC : BLOCK COSC$K_Z_BLN, BYTE], 
3; 2010 13 UCB : REF BLOCK (C,BYTE), 
3; 2011 13 ORB : REF BLOCK C,BYTE]J, | 
3 sol¢ 134 DDB : REF BLOCK [,BYTEJ, 
3; 201 135 10SB : VECTOR (4, WORD), 
3; 2014 1 $ STATUS, 
3 Bie : 3 DEVCHAN : WORD 
: O17 139 : 
; 2018 140 ‘ 
: ah 146 If the data Link UCB is gone, then we are inactive 
: 2021 14 LT = .LCPSL_AREA; 
; a3} 144 IF (UCB = .CT CGHB$L_UCB) ) EQ. 0 
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LATCP LAT Control Program 1b-se -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 67 
v04-000 LCPK_STOP Kernel routine to stop the port driv 12-Sep-19 4 03: 93:3 DL EKSVMEMASTERSLLAT  SRCSLATCP.832;1 . (16) | 

| 
; 2023 145 THEN : 
: 2024 146 RETURN SS$_DEVINACT $ 
> 2025 14 : : 
: 3026 148 ! | ; 
; 20 19? : Get pointers to the ucb and ddb for datalink to make its name | : 
: 3 129 : sO we can assign a channel to the data Link device ucb | ; 
; 20 136 DDB = .UCB_CUCB$L_DDB); | $ 
: 2031 15 NEVNAMDSC CDSCS$A_POINTER] = DEVNAMSTR; 3 
: 20 ¢ 154 VEVNAMDSC LDSCSW_LENGTH] = DEVNAMSIZE; ° 
; 20 P 2155 STATUS = $FAO 3 
3; 20 = 136 ( 3 
: 2035 P 2157 DEVNAMCTR, F 
; 20 P 2158 DEVNAMDSC CDSC$W_LENGTH), ; 
3; 2037 P 2159 D 3 
: 2038 P 2160 DDB CODBST_NAME) : 
3 2039 P 2161 -UCB CUCBS@_UNITS : 
3; 2040 166 : 3 
; 2041 16 IF NOT .STATUS : 
3 ek 164 2 3 
3 soe sie? RETURN .STATUS £ 
3 2044 166 ; 3 
3; 2045 2167 ! 3 
3; 2046 2168 ! Fix the ucb so we can assign a channel to it. : 
3 Spee 2169 2 ! 3 
; 2048 2170 UCB CUCBSL_PIDJ = 0; : 
3 2049 2171 ORB = .UCBTUCBS$L_ORB); ; 
; 2050 $176 ORB CORBSL_OWNERJ = 0; 3 
3 Be) gif; ; ORB ORB$SW_PROTJ = 0; | : 
; $088 sihe ! Assign a channel to hold it here and allow us to shut it down 3 
$ soee $176 2 : later and deassign the ucb to cause it to go away. ; 
3; 2056 2178 g STATUS = SASSIGN (DEVNAM = DEVNAMDSC, CHAN = DEVCHAN); : 
3; 2057 2179 2 If NOT .STATUS 3 
; 2058 2180 § TH ; 
; 2059 181 RETURN .STATUS P 
3; 2060 136 : 3 
3 2061 18 i ; : 
§ spe Sige Call the shutdown entry of the terminal port driver : 
3 2064 $136 3 STARTSTOP (.LT CGHBSL_SHUTENTRY)); : 
3 4 138 Shut down the datalink unit to free the protocol type : 
: 2068 P 2190 STATUS = $0]0W : 
3; 2069 P 2191 ( 3 
; 2070 e 136 FUNC = IO$_SETMODE OR IOSM_CTRL OR IOSM_SHUTDOWN, : 
3 $07) P 219 CHAN = .DEVCHAN, é 
i 2072 P 219% 10SB = | ; 
3: 207 195 ); 3 
3; 2074 196 ! 3 
: Bee Collect any failures in status ; 
: 079 199 IF NOT .STATUS OR NOT (STATUS = .10SB [0)) 
3; 2078 200 $ THEN 
3; 2079 201 


a 08 


: 20 

a. 3% 
3 eH oF 
3 4d $8 
: 2088 10 
: 2089 11 
; 2090 \¢ 
; 2091 1 
3; 209 14 
; 209 15 
3; 2094 16 
; 2095 217 


1 
LATCP LAT Control Program 1-Se 1984 01:49: 
v04-000 LCPK_STOP Kernel routine to stop the port driv 14-Sep-19 4 3:47:38 


VAX=11 Bl issese v4. 


1 
Temporary code to clean up io queue for mailbox delete 
i UCB CUCBSL_I08LJ = UCB CUCBSL_IOFLI = 0; 


i Deassign the channel that we have. If shutentry succeeded, then 
the device will disappear 


SDASSGN (CHAN = .DEVCHAN); 
RETURN .STATUS 


END; 
.PSECT $PLIT$,NOWRT,NOEXE,2 
57 55 21 43 41 21 OODD4 P.AFJ: . ASCII \!AC!UW\ 
OODDA -BLKB 2 
00000006 OO0DDC P.AFI: <LONG 6 
00000000" 00DEO “ADDRESS P.AFJ 
DEVNAMCTR= P.AFI 
-EXTRN SYSS$FAO 
.PSECT $CODES$,NOWRT,2 
OFFC 00000 LCPK_STOP: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
SE 28 C2 00002 SUBL2 #40, SP 
53 0000" CF DO 00005 MOVL LCP$L_AREA, LT 
52 14 A3 DO OOOOA MOVL  20(LTS, 
06 12 O000E 1$ 
50 2004 8F 3C 00010 MOVZWL #8404, RO 
04 00015 
50 28 A2 00 90016 1$: MOVL  40(UCB) 
146 AE 18 AE 9 OO1A MOVAB DEVNAMSTR, DEVNAMDSC+4 
10 AE 10 : 0001F OVW #16, DEV 
7E 54 A2 3C 00023 MOVZWL g4 (UCB), -(SP) 
14 AO OF 90 7 PUSHAB 20(DDB) 
18 AE OF A PUSHAB DEVNAMDSC 
1C AE 9F 00020 PUSHAB DEVNAMDSC 
0000" CF 9F 00030 PUSHAB DEVNAMCTR 
000000006 00 5 F 99 CALLS #5, SYSSFAO 
ge 0 D 0 MOVL RO STATUS 
6 6 0 BLBC STATUS, 3$ 
ac Ae 04 00041 CLRL ©: 44 CucBS 
50 C A2 DO 00044 MOVL $ 28(UCB), ORB 
60 D4 00048 CLRL (ORB) 
18 «OA B4 O4A CLRW 24(0RB) 
7E 7C 00040 CLRQ = =( SP) 
OC AE OF O004F PUSHAB DEVCHAN 
1€ AE 9F 00052 PUSHAB DEVNAMDSC 


writs 
DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 


Pete Se Se Se Se Se Ge Se Sse Ge Se Se Ge Se Se Se Ge Se Ge Se Se Se Be Be 


LA 
ve 
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LATCP LAT Control Program 16-Sep-19 VAX-11 Bliss-32 V4.0-7 Page 69 
v04-000 LCPK_STOP Kernal Fr routine to stop the port driv 12: -Sep ats ri 9}: $3: 38 DISKSVMSMASTER:CLAT. se LATCP.832;1 ° (16) | 
000000006 00 04 F 5 CALLS #4, SYSSASSIGN ; | 
0D ¢ MOVL RO, STA ys : | 
6F : F BLBC STATUS + 2179) 
0c : 4 06 JSB al2(LTs : 186 
E 7C€ 0006 CLRQ = = (SP) : 219 
7E 7C 0006 CLRQ 2s = (SP) : 
7E 7C 00069 CLRQ = (SP) : 
28 Ak OF b00Kp BUSHAB 1088. 
7E 0288 8F i 0070 MOVZWL eae -(SP) : 
7E 2C «AE 3C 0007 MOVZWL DEVCHAN, =(SP) : 
D4 0 79 CLRL = = (SP) : 
000000006 00 o¢ FB 0007 CALLS #12, $v$$a10u ; 
bE 09 008 VL RO, STATUS : 
04 ‘a3 00 STATU > 2199 
E 08 AE 3C 000 MOVZWL I0SB, STAT : 
E 04 AE 3C 0008C 28 MOVZWL DEVCHAN, =(SP) + 2213 
000000006 99 01 FB 00090 CALLS #1, SYS$DASSGN F 
0 6E DO 00097 3s MOVL _—« STATUS, : 2215 
04 0009A RET > 2217 


; Routine Size: 155 bytes, Routine Base: SCODES + O9DE 


De Se Se Be Oe BeBe Se Se Se Se Se See Se Se Se Se Se Se Se oe Se Se Se Se Sele Ge Ge Be Se Se Se Ge Se Se Se Se Se ee Se Se Se Se Se Se Seas Fe Se Se Se ee seae 


10 
LATCP AT Control Program 16-56 -1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 70 
v04-000 C nSTARTHISTORY Kernel mode start history ro 1 ~300-} 387 93:99:38 DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 . (17) 
7 1 ZSBITL “LCPK_STARTHISTORY Kernel mcde start history routine’ 
1 ROUTINE LCPK_STARTHISTORY = 


'o¢ 


; FUNCTIONAL DESCRIPTION: 


| 
This routine is called in kernel mode to start history journalling | 
in the driver. First it checks to see if the terminal driver is 
already active by looking at the Timer Active flag. 

the device is not active, then an error is returned, else the history 

buffer is allocated and pointed to in the driver global area. 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
LCPSL_AREA 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


~ 
VFN OOO VOUE UW" O0O@ a 


SEES 
ViFwWwn—OO0@ 


| 
| 
success or failure code | 
SIDE EFFECTS: —e 


mononorononononunononononononononononononononononononononunununy 
a 


Mrororer 
BVI S GOVAN WN OOBNAAR WN HOSRURAR AIO 


RETURN SS$_DEVINACT 


t 
Try to allocate a buffer, else insufficient memory 
iF NOT (STATUS = EXESALONONPAGED (GHBSK_HISTSIZE+HBF_C_LENGTH; HIST_BUF) > 


ANNNOO 


Wn 
PRO GEPOPOPOPIPOPIPOPONOPONOPONINOPONIPONINYDD 2 2 2 9 


ee ee ee ce ee ee el cel el el el cel el cel cel cel cel el cel cls cls cls cells cells calls cell cells cells cll cells eal calls 


48 
49 NONE 
50 
51 ~ 
i: 
5 BEGIN 
MH $2¢ 
55 LOCAL 
35 56 LT : REF BLOCK C Byte). 
36 57 HIST BUF : REF BLOCK (,BYTE], 
¢ 58 STATOS 
8 59 : 
39 60 
40 61 : 
re 6¢ Check to make sure the driver is active. 
rh 64 LT = ‘a ae AREA; 
44 65 IF .LT CGHBSL_TIM_ACT) EQL 0 
45 $6 THEN 
ry 6 
4 8 
8 9 
9 0 
0 


uw 
 ~ 
, 


F 10 


; Routine Size: 78 bytes, Routine Base: S$CODE$ + 0A79 


LATCP LAT Control Pro $ep-1984 01:49:1 VAX-11 Bliss-32 V4. 
v04-000 LCPK_STARTH THISTORY Kernel mode start history ro 1 12: ~Sep- 1984 339933 DISKSVMSMASTER: cla’ she LATCP.832;1 
3; 21546 75 RETURN SS$_INSFMEM 
3; 2155 6 : 
: $189 ; ; 
; , 8 4 ; Initialize the buffer and move pointer into global area 
: 2160 1 HIST -But HBF_L_NEXT) = HIST_BUFCHBF_7Z DATA]; 
; 2161 ¢ HIST_BUF CHBF a =BUF END] = gist BU eae _DATAI + GHBSK_HISTSIZE; 
H 1 HIST- BUF Merv SIZE oete AIS 
3; 216 4 HIST -BUFCHBF-B TYPE) = DYNS ie 1807 
; 19 5 CHSFILL (0, * ohesK HISTSIZE, “Aist 8 BUF ree ! Zero the buffer 
; 196 ; LT CGHBSL_HISTORY] = HIST_BUF CHBF_L_NEXT); 
: 2168 89 SUCCESS 
: 2169 90 
3; 2170 91 ~«#1 END; 
OFFC 00000 LCPK “ahaaee~ aa 6 
ORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
57 0000" CF bD0O 00002 movL LCPS$L_AREA. LT 
18 A7 05 00007 TSTL 24(LTY 
06 12 QOOOA BNEQ 1$ 
50 2004 8F 3C 0000C MOVZWL #8404, RO 
9 00011 RET 
51 OA0D 8F 3C¢ BO016 1$: MOVZ2WL #2573, R1 
000000006 00 16 0001 JSB EXESALONONPAGED 
56 25 DO 0001 MOVL R2, R6 
06 5 58 000 BLBS STATUS, 2$ 
50 0124 8F 3c 000 MOVZWL #292, RO 
oe 00028 RET 
66 A6 YE 00029 2$: MOVAB 12(HIST ett Sf BUF ) 
04 Ab OAOC C6 4 0002D MOVAB Garg {RO}, T_BUF) 
0S A6 OA0O0 Os BF 8 00033 MOVW #2560 Hist BUF) 
OA A6 13 90 00039 MOVB = #19, {ocnter _BuF 
OA0O Os BF 00 6E - 09 2c BD0ce MOVCS #0, (SP), $07 42360, 12(HIST_BUF ) 
08 A7 56 D0 00046 MOVL HIST_BUF, 8(LT) 
50 01 DO 0004A MOVL #i, RO 
04 0004D RET 


Page mai 


(17) | 


. 
a 
7 
. 
+ 
6 
. 
° 
. 
° 
. 
_ 
. 
2 
o 
. 
. 
e 
. 
eo 
. 
. 
. 
. 
e 
a 
° 
° 
. 
. 
a 
. 
. 
o 
. 
° 
oe 
. 
« 
7 
° 
. 
° 
- 
. 
. 
o 
. 
° 
. 
e 
. 
° 
. 
° 
. 
o 
o 
e 
. 
e 
© 
o 
a 
° 
o 
e 
. 
° 
a 
° 
o 
e 
+ 
° 
o 
6 
a 
e 
. 
° 
7 
e 
. 
- 
. 
o 
oe 
e 
* 
o 
° 
e 
. 
o 
- 
° 
. 
i 
. 
e 
- 
. 
o 
e 
. 
e 
+ 
. 
. 
o 
7 
. 


10 | 
trol Program 18-5¢ -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 P 72 | 
OPHISTOR? Kernel mode stop history rout 1 ~300n 138% 93:95:38 DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 29° 18) 
SBTT 

I 


ZSBTTL ‘LCPK_STOPHISTORY Kernel mode stop history routine’ 
ROUTINE LCPK_STOPHISTORY : NOVALUE = 


a 
> 
4 
o 
~~ 
a a 
o> 
io 


“ 
SKIP IMINIPIPINIMIANINPININIMIPINPINIA\PIPI\III IA a it td td ot 4 
“ess © qtr ecare 
z=" 
mm 
2: 


'e¢ 


; FUNCTIONAL DESCRIPTION: 


This routine is called in kernel mode to start history journalling 
in the driver. First it checks to see if the terminal driver is 
already active by looking at the Timer Active flag. 

the device is not active, then an error is returned, else the history 
buffer is allocated and pointed to in the driver global area. 


| 
! 
| 
| 
| 
FORMAL PARAMETERS: 
| 
| 
| 
} 
| 


FON LSSRLERR SS 


0 NONE 
p IMPLICIT INPUTS: 
LCPSL_AREA 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


AAA AANAIL AAA AAAI 


NO NEA 2 0 ODNOAUE WIN 9 ODNA UE WN 9 OONOAOUE WW" OOONOU 


BEGIN 


| 

| 

LOCAL . | 
HIST_BUF : REF BLOCK C,BYTE) | 
| 

| 


GRENSSSELISPESLSSSLS SPORES Ia 


Check to make sure the driver is active. 
LCPSL_AREA CGHBSL_HISTORY] EQL 0 
RETURN 


NOUS WMO 


i at se td tt 


Get history buffer and deallocate it. 
HIST_BUF = ,LCPSL_AREA C[GHBSL_HISTORY); 
LCPSC_AREA (GHBSL“HISTORY) = 0; 
EXESDEANONPAGED (AIST_BUF); 


RRURUNVNNNMUNNNNNNUNNNNUUUNNNUN 3 2B BB 5 5 5 5 5 5 
SSIES 
WA AAA AAA ALA ROMURIPINONUNUNUD 2 


RIPIPINIPIPIPOAIMOPOPININPINDPINPNINIPNNY 


FESEESS 


WN UNSW 0 0@ 


Rororonononoforory 


Be Se Oe Se Se Se Be Se Se Ge Se Ge Fee Fe Ge Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Be Se Ge Se Se GH Se Se Se Se Se Se Se Se Se Se Oe Ss Se Se Oe SH See Se Se Sees 


LATCP LAT Control P X-11 Bliss- 
v04-000 SKSVMSMASTE 


H 10 
Je-300~ 1388 1:49:17 vA 
LCPK I 


_STOPHISTORY Kernel mode stop history rout 14-Sep-1984 12:37:2 Dd R: 


cai OSRCSLATCP. B32;1 (18) 


OFFC 00000 LCPK teat paid 


.W Save <f?- R3,R4,R5,R6,R7,RB,RI,R10,R11 3 2293) 

5 , % ¢ ah SUBL2 : | 

0099 CF Ovi ie AREA, RO ‘ ; 2336 

6E 1 . Sout (R HIST_BUF 4 

8 CLRL Heys ‘ : 335 

50 MOVAB HIST B + 2346 
000000006 JSB SES SP utONPAGED : 

iF 1$: RET + 2348 


; Routine Size: 32 bytes, Routine Base: S$CODE$S + OAC7 


10 
ATCP LAT Control Program 1b-5e -1984 01:49: VAX-11 Bliss-32 V4.0-74 Pa 74 
VvO4 LCPK_ AT ERAINAL Kernel routine to determi 1 ~300n 138% 04:49:38 DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 9 49) 
L 


’ 
a 


“ow 

@ 

—_ t 
—“_ v0 


*LCPK_IS_LAT_TERMINAL Kernel routine to determine if TT is LAT terminal’ | 
ROUTINE LCPK_TS_CAT_TERMINAL = 


'¢ 


. + j 
FUNCTIONAL DESCRIPTION: 


This routine is called in kernel mode to determine if the current 
TT: device is a LAT terminal. 


i FORMAL PARAMETERS: 
NONE 

i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 


Gaines 2 


SLE 
NOUSWN—O 


on 
IS 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 1 
4 1 
48 1 
49 8 1 NONE 
50 9 1! 
51 70 1 =! ROUTINE VALUE: 
26 4 ; ' COMPLETION CODES: 
54 i 1 success or failure code 
$2? 74 261! 
2$ $2 1 ! SIDE EFFECTS: 
5 76 #1 
58 77 1 NONE 
59 78 #1 
60 79 «1 «Se- 
yom 
88 38 | 
64 Hy BIND 
65 84 TTNAME = DESCRIPTOR <'TT'), 
66 HH DRVRNAM = DESCRIPTOR ("LTDRIVER') : BLOCK C,BYTE) 
68 HH | 
69 88 LOCAL 
570 389 UCB : REF BLOCK C,BYTE), 
$f 90 CCB : REF BLOCK C,BYTEJ, | 
iC; 91 DDB : REF BLOCK (,BYTEJ, 
7 35 STATUS, 
74 9 DEVCHAN : WORD 
75 94 F 
ee | 
A} 9 ' If we can't oss’ a channel, then return success, to prevent 
44 a8 } shutting down LAT. 
81 01 if wot (STATUS = SASSIGN (DEVNAM = TTNAME, CHAN = DEVCHAN) ) 
Hh 4 ; RETURN SUCCESS 
84 40 : 
85 404 
86 405 ‘ 


LES 


10 
1} 
1§ 
14 
15 
16 


wr 


Sek tekken ede kee ek eke ee de ee ee ae ee ee ee ee edd 


WAAAY PIN NINININININIDY 2 OO OO ew 


PRR PNIINIMNPIPNIPIPIIIFINIIINITUNININITUNINNNININD 
eS 


oO, 
vo~- 


FUMIO Oe NOU PU OO NOE UO De ae 


“ 


VAX=-11 BL 


Rt te RAINAL Kernel routine to determi 1b-be0-1986 93: $3: 8 SL EKSVMGHAST eRe VRE sh 
i 
i 


galt a handy system routine to find the terminal ucb address 
rom the channel control block. 


preventer t (.DEVCHAN; CCB); 
= .CCB CCCBSL_UCBI; 


Deassign our channel to the terminal ucb 
SDASSGN (CHAN = .DEVCHAN); 
IF luce CUCBSL_TL_PHYUCB) EQL 0 


! Get (virtual?) UCB address 


' LT devices should have this 
‘ field set! 


NRETURN FAILURE ! Assume we're not an LT term 
ucB = .UCB PuCBSL TL_PHYUCB); ' Get Physical UCB address 
DDB = .UCB CUCBSL_DDB); ' Get DDB address 


! 
} Return the result of the comparison 


CHSEQL 
-DRVRNAM CDSCS$W_LENGTH], .DRVRNAM COSCSA_POINTER), 
CHSRCHAR (DDB B CODBSB. DRVNAM_LENJ), 
pos DDBST_DRVNAME) 71, 
) 


END; 


-PSECT S$PLIT$S,NOWRT,NOEXE,2 
54 54 OODES P.AFL: .ASCII \TT\ 
OODE6 -BLKB 
6006 003, 90 BODES P.AFK: . LONG 
-ADDRESS P.AFL 
52 45 56 49 52 oa” 00? 4 8p FO P. AEN: eASCII = \LTDRIVER\ 


00000008 OODF8 P.A «LON 
00000000" OODFC ADDRESS P.AFN 
TTNAME= P.AF 
AF 


DRVRNAM= P. 


-PSECT SCODES,NOWRT,2 
OFFC 00000 LCPK_IS_LAT aaa my 
WORD 


‘ Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5E 4 c2 000 SUBL2 #4, SP 
E 7C€ 0000 CLRO. 20s = ( §p 
08 AE 3 900 PUSHAB DEVCHAN 
0000" CF 9F OOO0A PUSHAB TTNAME 
000000006 00 4 FB 0005 CALLS #4 SYSSASSIGN 
4 E 1 BLBS  STATU 


CLaT. SRC LATCP.832;1 


Page 75. 


C19) | 


ee » ~4y 


K 10 
LATCP LAT Control Program 16-S$ x-11 s-3 

v04-000 CCPK_1S, LAT. TERMINAL Kernel routine to determi 12: eet 93: 43: rm Ms SK$V men SfeRcclate SRCSLATCP. B32;1 Page 108 

50 01 00 00018 MOVL » RO ; 
50 i if 1s MOVZWL DEV a 

000000006 6§ 6 1F JSB Spt 

¢ er Re H mOV SUL seven -(S$P) : 

000000006 05 6f F CALLS He hin =<) : 

00A0 D MOVL 160(UCB), RO : 

12 00 BNEQ = 2$ : 

38 9 CLRL RS : 

4 B RET : 
3 5 4 8 C 28 MOVL RB UCB : 2421 
$8 A 3 F MOVL 40¢ tp : 2422 
ee 3:7) aC oa ae ts 

51 00 0000" oF 0099" CF D 0069 CMPCS DRVRNAM, @DRVRNAM+4, #0, R1, 37(DDB) 
§ 1 bose BNEQ 6 3$ 

4 0 +4 INCL R4 : 
50 4 DO 00058 3s: MOVL 4, RO : 2435 

04 00058 RET : 


; Routine Size: 92 bytes, Routine Base: S$CODE$S + OAE7 


. 
o 
. 
* 
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. 
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* 
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* 
7 
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. 
o 
. 
6 
. 
. 
2 
° 
. 
@ 
. 
a 
. 
. 
. 
. 
. 
. 
. 
e 
. 
. 
. 
° 
. 
. 
7 
ca 
° 
° 
o 
. 
. 
e 
. 
a 
. 
e 
. 
° 
7 
. 
7 
a 
. 
o 
o 
e 
7 
. 
. 
eo 
7 
e 
. 
° 
. 
e 
o 
a 
7 
o 
a 
° 
. 
e 
. 
a 
2 
e 
. 
. 
. 
. 
. 
e 
7 
° 
. 
e 
7 
e 
. 
. 
. 
. 
. 
° 
. 
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LATCP LAT Control Program 14-49 S$ep-1984 VAX-11 BL is s-32 V4.0-7 2 77 
04-000 CCP_ZERO Zero counters and history buffer 12-808- 138s 93:97 DISKSVMGMASTERSELAT SRCTLATCP.B32;1 7 20) 
: 1 4 1 ZSBTTL ‘LCP_ZERO Zero counters and history buffer’ 

3 13 4 GLOBAL ROUTINE LCP_ZERO : NOVALUE = Soe | 
: 5354 <8 1 tee | 
; ; 440 FUNCTIONAL DESCRIPTION: 

3 ¢ rr ! Call the kernel mode routine to zero the counters and history buffer. 
3 $ res FORMAL PARAMETERS: | 
: $308 46 1 | — 

; Aug 1 | IMPLICIT INPUTS: 

: 1 449 1/3 

: $3eg $20 1 | — 

; 43¢ 1 | IMPLICIT OUTPUTS: 

3 5 4 1 / 

: eee 1 i — 

; 436 1 | ROUTINE VALUE: 

: 2339 457 1 | COMPLETION CODES: 

3 0 458 1: 

; 1 459 NONE 

; 5 461 SIDE EFFECTS: 

> 2345 rh 1/ NONE 

$ $ 4664 1! 

: 53cg ae 

; 366 rae — 

> 2351 469 SCMKRNL (ROUTIN = LCPK_ZERO) 

; 33¢ 470 

: 235 471 3 END; 


0000 00000 «ENTRY LCP_ZERO, Save nothing 3: 2437 
7E Be 0002 CLRL -(SP) 3 2469 

0000V 65 F 88 PUSHAB L gPK ZERO : 

000000006 00 2 FB 00008 CALLS #2, SYSSCMKRNL : 
04 0000F RET : 2471 


; Routine Size: 16 bytes, Routine Base: S$CODE$ + 0843 


D 


> 


C 


cr] 


ag Ea «ty zero routine 16-ep-1964 93:99:38 


ZSBTTL ‘LCPK_ZERO Kernel mode zero routine’ 
ROUTINE LCPK_ZERO : NOVALUE = 
1+ 


co 
Poy at af af at at 0 at at at at at et at at at at at 


"J 


~ZER 


FUNCTIONAL DESCRIPTION: 
Zero the counter block and the history buffer 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


OONAUE UT a 


SOOONOUSWN— 


491 
ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


NONE 
5 


: REF BLOCK C,BYTEI, 
Hist _BUF : REF BLOCK C,BYTE) 


LT = .LCPSL_AREA; 


t 
Zero the counterblock 


CHSFILL (0, GHBSK_CTRLENGTH, LT CGHBST_COUNTERS) ); 


FWN "OC OONOuewn— 


1 
Zero the history buffer if there is one 


IF .LT CGHBSL_HISTORY] NEQ 0 


ed od od od ed md ms OOO OOOOCO 


GIN 
T_BUF = .LT CGHBSL_HISTORY); 
CHSFILL (0, GHBSK_HISTSIZE, HIST_BUF CHBF_2_DATA)); 


END; 


= PRIA PIPOPOPINIPYINONNIPIPNONIPYARD 0098 ot ot tt ot ot tt tt 
@ 
m 
i) 
— 
2 


SR ee eee eee ee alah 4h 4h 4b 4h dl 


NOUN —OOONOuU 


Roroponororonoerny 


s-3 
DISKSVMSMAS STER: claie she LATCP.B32; Ys 


j 
$$ $$ 


Beee Se Ge Se Ge Se Se Se Se Se Se Se Se Se See Se Se ee Se Seas 


34 


OA00 Os BF 


3; Routine Size: 


00 


00 


33 bytes, 


LAT Control Program 
LCPK_ZERO Kernet mode zero routine 


Routine Base: 


N 10 
16-Sep-1984 01:49:1 
1exgee= 198s 93:93:38 


007C 00000 LCPK_ZERO: ion 


0000" CF 
00 

2b AG 
08 A6 
0D 

08 A 

0 

0c AO 

04 0 


SCODES + 0853 


MOVL 
movcs 


VAX-11 Bliss-32_V 


R5.R4 R5,R6 
, WO, #52, 44(LT) 


LT), HIST BUF 


(SP), #0, #2560, 12(HIST_BUF) 


DISKSVMSMASTER: lai’ OSRCOLATCP. B32;1 


Page 79. 


(21) 


11 

LATCP LAT Control Program 1bese -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 0 

v04-000 CCP_SHOWCOUQUAL> Process show quaiifiers 14-Sep-19 4 93:93:38 DISKSVMSMASTERSLLAT. SRCSLATCP.B32:1 . ca 

; tig 8 1 ZSBTTL “LCP SHOWCOUQUAL Process show qualifiers’ : 
; re : ROUTINE LCP_SHOWCOUQUAL : NOVALUE = a 
: “18 : 1 144 | | 
; ti$ § : : FUNCTIONAL DESCRIPTION: | | 
: 2618 4 1: Process qualifiers for the SHOW COUNTERS command. Convert the qualifiers 3 
3 (36 é 5 } to descriptors to set in the driver. | i: 
3 2621 839 | i FORMAL PARAMETERS: | | 
i 2688 238 1 | i 
26 539 1! NONE 3 
3 2424 $40 1 | 7 
3; 2425 541 1°! IMPLICIT INPUTS: 2 | 
3; 26 : 2¢§ 1! i | 
; 24 545 1! cli processed qualifiers a 
: 2428 544 1! i 
3s 2429 545 1 ! IMPLICIT OUTPUTS: : | 
26 g546 1 | | 
3 2431 547 1! qualifier descriptors i 
; rt 2548 1! i 
3 243 2349 1 | ROUTINE VALUE ; 3 
3 2434 550 1 ! COMPLETION CODES: 2 
: Stee $323 1 i ignalled | 
3037 226 1 errors signalle + 
3; 2438 554 1 ! SIDE EFFECTS: : 

3: 2439 555 1! 3 
; 2440 556 1 | NONE 3 
2441 557 1! 3 | 
; age 2558 1 i-- 3 | 
Py 244 2559 1 : ‘ 
> 2444 2560 2 BEGIN 3 
2445 2561 3; 
3 2446 356¢ 5 s 
3 ret Seer 2 ALL qualifiers are optional! a 
; ak: Ses 6 FLAGS CFLAG_V_NODE] = CLISPRESENT (QUAL_NODE); 2 
; 2450 2566 2 FLAGS CFLAG_V_DEVICE] = CLISPRESENT (QUAL DEVICE): : 

; 3451 3367 FLAGS CFLAG_V~SERVERS] = CLISPRESENT (QUAC_SERVERS); | i 
; 3438 $369 , | e 
3 tr 3f0 If no qualifier is specified, then default to /NODE | 2 
> 2456 228 if NOT ( | 2 
3 2457 57 -FLAGS CFLAG_V_NODE] OR 3 
> 2458 574 FLAGS CFLAG-V~DEVICE) OR ; 
; 439 325 FLAGS CFLAG~V~SERVERS) | : 
> 2461 275 THEN ; 
3 rt 578 FLAGS CFLAG_V_NODE] = TRUE ‘ 
ss ae 
+ 2465 581 1 END; 3 


11 


LATCP LAT Control Pro 16- Sep-1984 01: VAX-11 Bliss-32 V Page 81. 
v04-000 LCP _SHOWCOUQUAL” Pr Process show qualifiers 14- et 2: Disk SKSVMEN TER: lar’ she LATCP.B32;1 . (2) 
| 
000C 00000 LCP_SHOWCOUQUAL : 
.WORD Save R2,R3 : 2529) 
53 000000006 00 9€ 00002 MOVAB CLISP Sens NT, R3 : 
2 9000" CF 9E 00009 MOVAB FLAGS. : 
000° CF 9F 0000 PUSHAB QUAL ope 3 2565. 
63 gi FB 001 CALLS a, “TLISPRESENT : 
62 01 02 0 £0 0001 INSV FLAGS : | 
0000" CF 9F OOO1A PUSHAB BUAL *Sévick + 2566 
63 gi FB OO1E CALLS #1, CLISPRESENT : 
62 01 01 0 F 9021 INSV RO, #1, #1, FLAGS : 
0000" CF 9F 00026 PUSHAB QUAL_SERVER t 2567 
63 01 FB 0002A CALLS “#1, Ci ISPRESENT 3 
62 01 00 50 FO 0002D INSV RO, #0, #1, FLAGS : 
OA 62 02 £0 00032 BBS #2, , 1$ 3 2573 
06 62 01 £0 000 BBS #1, FLAGS, 1$ : 2574 
03 62 £8 O003A BLBS FLAGS, 1$ : 2575 
62 04 88 0903D BISB2 #4, FLAGS : 2578 
04 00040 1$: RET : 2581 


; Routine Size: 65 bytes, Routine Base: $CODE$S + 0874 


<r 


| 
D 11 
LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 82 
v04-000 LCP_SHOWCOU Process show counters request 12780-1382 95:95:38 DISK SVMGMASTERSLLAT SRCTLATCP.B32:1 . 255 
: 2467 ¢ 1 ZSBTTL. "LCP_SHOWCOU Process show counters request’ | 
; o08 } ROUTINE LCP_SHOWCOU : NOVALUE = 
3 cf 5 1 t+ | 
3 of § ; FUNCTIONAL DESCRIPTION: | 
: oo7 3 | Convert and write the requested counters to sys$output. 
> 2675 90 1 | FORMAL PARAMETERS: 
> 247 $91 1 | | 
oe 8 | bese 
; 43 594 { IMPLICIT INPUTS: 
; ret 239 : ; counters in LAT driver or Ethernet device driver 
; 485 398 ! IMPLICIT OUTPUTS: 
Be ons Be a | 
: 2487 2602 1 ' ROUTINE VALUE: 
: Stee yet ! COMPLETION CODES: 
: stoe et ! errors signalled 
> 249 607 1! SIDE EFFECTS: | 
s 249 608 1! 
3 2494 609 1! NONE | 
3; 2495 seiy 1! 
> 2696 611 1 !=- 
: 2497 sols 1 
3; 2498 261 § BEGIN 
Be MEE 
; 301 2616 3 | If the /NODE qualifier is present, then display Host Node counters. 
; 308 618 3 If FLAGS CFLAG_V_NODE) 
> 2505 620 LCP_SHOWNODECOU () 
: 2506 os! ; 
Bee | 
: 2509 $57 i If the /DEVICE qualifier is present, then display Ethernet device 
: 219 5 counters. | 
: 318 3 $ if .FLAGS CFLAG_V_DEVICEJ 
3; 251 628 THEN 
3 2516 629 LCP_SHOWDEVCOU () 
: 2515 630 3 
en oe 
: 313 ? 4 If the /SERVERS qualifier is present, then display SERVER counters. | 
: $829 635 iF _.FLAGS CFLAG_V_SERVERS) | 
3; 2521 6 § THEN 
i 952 6 LCP_SHOWSERVCOU () | 
> 25 2638 ; | 


LAT 
LCP 
63 


: 8385 5826 


0004 00000 LCP_ 


5 0000" CF 9 0 
05 33 § E 6 5 
0000v CF 4 
62 2s 18: 
0000v CF 2 14 
05 63 E9 00019 2$: 
0000v CF FB QOOIC 
04 00021 3$: 


; Routine Size: 34 bytes, Routine Base: SCODES + 0BB5 


a 


11 
Sgnsrol Program neers request YErSERrT9E4 QD:49:18 vase eLieecs2 


#0, LCP_SHOWDEVCOU 
*0., LéP_SHOWSERVCOU 


eos, 
CLAT.SRC LATCP.832;1 


| 
wf | 
| 


F 11 
LATCP LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 
v04-000 CCP_SHOWNODECOUs Show Host Node counters 19-808-1982 93:93:38 DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 


3 7 1 1 ZSBTTL ‘LCP_SHOWNODECOU Show Host Node counters’ 
3 : ot6 ! ROUTINE LCP_SHOWNODECOU : NOVALUE = 

3 644 1 !44 

3 1 2? ! FUNCTIONAL DESCRIPTION: 

$ 5 oe : Convert and write the NODE counters to sys$output. 
3 5 es : FORMAL PARAMETERS: 

3 651 1! NONE 

3 6 ¢ 1! 

3 6 1 ! IMPLICIT INPUTS: 

4 a9 654 1! 

: 2541 655 1! counters in LAT driver 

; 208 $28 1! 

: 254 657 1°! IMPLICIT OUTPUTS: 

3: 25446 658 1! 

¢ 2545 659 1! NONE 

3 2546 660 1! 

3; 2547 661 1 ! ROUTINE VALUE: 

: 2548 soe 1 ! COMPLETION CODES: 

3: 2549 6635 1! 

; 2550 664 1! NONE 

3; 2551 665 1! 

$ 226 666 1 ! SIDE EFFECTS: 

3; 255 667 1! 

3; 2554 668 1! NONE 

3; 2555 669 1! 

: 2556 670 1 !-- 

3; 2557 671 1 

3; 2558 267 BEGIN 

3; 2559 67 

3; 2560 674 LOCAL 

; 2561 675 § LT : REF BLOCK C,BYTE), 

3 $206 676 PTR : REF VECTOR (CJ, 

3; 256 2677 2 STATUS 

3: 2564 sors 3 

3; 2565 679 

3; 2566 2680 

; 2567 2681 CHSFILL (255, GHB$S_COMM_AREA, AREA); 

3: 2568 ors 

s 26? 68 ! 

3 3/0 tt Get the counters if we can, and if not then signal the error 
3 278 686 F NOT 

3 He ret (STATUS = SCMKRNL (ROUTIN = LCPK_GETCOUNTERS) ) 
3 2575 689 BEGIN 

3 276 690 SIGNAL (.STATUS); 

3; 257 691 RETURN 

3 2578 69 END 

3 2579 69 ; 

3; 25 694 

3; 2581 695 ‘ . 
7 25 ‘ O98 ' convert the counters for output in a single bound 
; 258 69 ! 


7 


Page 84 
(24) 


| 


11 
LATCP LAT Control Program base -1984 01:49: VAX=11 Otis: 32 V Page 85. 
v04-000 LCP_SHOWNOD HOWNODECOU” Sh Show Host Node counters 12-88-1398 93:43:38 DISKSVMSMASTER: Var’ ORCILATCE. 832;1 . (24) | 
: 3584 ‘8 SSETDSC (OUTDSC, OUTBUFSIZE, OUTBUF); 
: p t STATUS = $FAOL 
: P o7 ; CTRSTR = COUNTERSCTRSTR, 
3 P 27 OUTLEN = OUTDSC COSCSwW_CENGTHI, 
: P 27 OUTBUF = 
; . Pp g 5 PRALST = AREA CGHBST_COUNTERS) 
: 259 7 ; 
3 32 f ; IF NOT .STATUS THEN SIGNAL (.STATUS); 
; 96 210 STATUS = LIBSPUT_OUTPUT (OUTDSC); 
; 98 ar: IF NOT .STATUS THEN SIGNAL (.STATUS); 
> 2600 714 
; 2601 715 ! Print the mask bit names that are present 
; o0e rig ! 
: 260 71 LT = AREA: 
3 2604 718 IF .LT CGHBSL_PROTOMASK] NEQ 0 
; 2605 719 HEN 
3 26 720 BEGIN 
; 260 721 STATUS = LIBSPUT_OUTPUT (PROTOCOLMASK); 
3 2608 7 é PTR = PROTOCOLBITS; 
: 2609 7 INCR IDX FROM 0 TO'64 BY 2 
: 2610 7246 
: 2611 725 & BEGIN 
; 61g 7 $ 4 
3; 261 7 4 ! If the string desc is blank, then exit loop 
+ 2614 728 4 i 
; 615 7 3 4 if .PTR C.IDX + 1) EQL 0 
; $19 731 4 EXITLOOP 
BR oe 7 
; eat : ? : If the bit is set, then write the string 
; 6 : u 6 4 F .LT CSBYTEOFFSET (GHBSL_PROTOMASK), .PTR [.IDXJ, 1, 0] 
> 2626 738 4 LIBSPUT_OUTPUT (.PTR C.IDX + 1] ) 
; 6 5 , 3 4 D 
> 26 $ 741 END 
+ ee 2 
: 26 744 END; 
O1FC 00000 LCP_SHOWNODE COU: 
ORD Save R2,R3,R4,R5,R6,R7,R8 3 2642 
58 99000 006 09 9 000 MOVAB LIB$PUT OUfPUT, RB ; 
37 0 0 G6 00 a MOVAB LIBSSIGRAL R7 : 
6 00" CF sti MOVAB OUTDSC, R : 


Show Host Node counters DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 (24) 


Se ee a a Fe Vn | 
# 11 | 
Pay, eae -Sep-1984 01:49: VAX-11 Bliss-32_ V4.0-74 Pp 
04-000 LCP_SHOWNODE COU" $7 908- 1382 93:49:38 age 86 
| 

0060 


; Routine Size: 169 bytes. Routine Base: SCODE$ + 0807 


; 2631 2745 1 


1 
1 
BF fF OF 6E rene 09 2¢ 90015 MOVCS #0, (SP), #255, #96, AREA ; 2681) : 
oooov CF OF BUSHAB LCPK. GETCOUNTERS i 2687 
000000006 F CALLS as. SYSSCMKRNL : ; 
D MOVL suAty : | : 
E BLBS STATUS, 1$ ; | ; 
DD PUSHL STATUS > 2690 ; 
67 FB CALLS #1, LIBSSIGNAY ; : 
4 RET > 2689 : 
66 0400 8F 3¢ 1$: MOVZWL #1024, OUTDSC ; 2698 ; 
06 Ab 9 AG GE 00 MOVAB  OUTBUF, OUTDSC+4 : : 
F6 i PUSHAB AREA+44 ; 2706 : 
DD 0004 PUSHL 6 : : 
6 DD 00049 PUSHL R6 : 3 
0000" CF 9F 00048 PUSHAB COUNTERSCTRSTR : ; 
000000006 9 4 FB O004F CALLS #4, SYSSFAOL ; ; 
DO 00056 MOVL RO STATUS : ; 
0 E8 00059 BLBS STATUS, 28 > 2708 : 
DD 9009¢ PUSHL STAT : : 
67 or FB 000SE CALLS #1, LIBSSIGNAL ; : 
6 DD 00061 2s: PUSHL R : 2710 ; 
68 gif 00063 CALLS #1, LIBSPUT_OUTPUT : ; 
32 D 00066 MOVL RO, STATUS : 3 
0 3 £8 00069 BLBS STATUS, 3$ ; 2712 : 
DD 0006C PUSHL STATUS : ; 
67 01 FB 0006 CALLS #1, LIBSSIGNAL : ; 
53 FSEC C6 SE 0007) 38: MOVAB AREA, LT : 2717 ; 
50 a3 D5 00076 TSTL =: BOCLT) ; 2718 ; 
2D 1 90079 BEQL = 6 ; 3 
0000" CF 9F 00078 PUSHAB PROTOCOLMASK ; 2721 ; 
$8 1 FB O007F CALLS #1, LIBSPUT_OUTPUT ; : 
2 0 pO 0008 MOVL RO, STA : ; 
54 0000" CF 9 0008 MOVAB PROTOCOLBITS, PTR : 2722 ; 
D4 O00BA CLRL = IDX ; 2729 ; 
50 04 Add 09 O08C 4$: MOVL  4(PTRICIDXI, RO ; ; 
15 13 00091 BEQL ; ; 
05 50 a3 6442 £1 00093 BBC (PTR)CIDX], B0(LT), 5$ : 2736 3 
50 DD 00099 PUSHL RO : 2738 ; 
68 01 FB 90098 CALLS #1, LIBSPUT OUTPUT ; ; 
FFEG 52 02 00000060 BF F1 QO09E 58: ACBL = #64, #2, IDR, 48 : 2736 : 
04 O00AS 6$: RET : 274 : 
e 
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LAT Control Program 


ZSBTTL 


1b-$0 1984 
LCP_SHOWDEVCOU Show Ethernet device counters 12-80-1382 


ROUTINE LCP_SHOWDEVCOU : NOVA 


'+¢ 

j FUNCTIONAL DESCRIPTION: 
Convert and write the Ethernet device counters to sys$output. 
{FORMAL PARAMETERS: 


NONE 


IMPLICIT INPUTS: 


counters in LAT driver 


IMPLICIT OUTPUTS: 


{ROUTINE VALUE : 
COMPLETION CODES: 


NONE 


i SIDE EFFECTS: 


NONE 


BEGIN 


LITERAL 
CTRBUFSIZE = 512 


CAL 
CTRDSC : BLOCK CDSCSK_Z_BLN, BYTE), 
STATUS 
$ 
: Setup the counters return buffer descriptor 
S$SETDSC (CTRDSC, CTRBUFSIZE, AREA); 


' 
Read and display the counters 


if NOT (STATUS = SCMKRNL (ROUTIN = LCPK_SHOWDEVCOU) ) 


To as (STATUS = LCP_DISPDEVCOU (CTRDSC) ) 
SIGNAL (.STATUS) 


<r 
co, 


TER: nate she LATCP.B32; ,? 
"LCP_SHOWDEVCOU Show w, Eghernet device counters’ 


LAT Control Program 
v04-000 LCP_SHOWDEVCOU Show Ethernet device counters 


; 2690 2803 1 END; 


a1 | 
16-Sep-1984 01:49:1 VAX-11 BL Liss -32 V Pa 8 LA 
14 300-138 05:99:58 DISKSVMSMASTER: vai? she LATCP.832;1 oe Be vO 


0000 00000 LCP_sHoWDEVCou: | 
WORD | 


° Save nothing 3; 2747 
SE 4 2 0000 SUBL2 : 
7E 0200 € 0000 MOVZWL #512, CTRDSC : 2791. 
06 «AE 00' cr E O000A MOVAB AREA, CTRDSC+4 : 
ps 901 CLRL = = SPS : 2796 
0000v re F 1 PUSHAB LCP SHOWDEVCOU : 
000000006 00 : FB 1 CALLS SYSSCMKRNL 3 
OA F 1D BLBC STATUS, 1$ : 
—E DD 9 PUSHL SP : 2798. 
0000v CF gi FB 0 CALLS #1, hf? DISPDEVCOU : 
09 0 €8 000 BLBS STATUS, ~2$ : | 
50 DD OO02A 1$: PUSHL STATU : 2800 
000000006 00 01 FB 000 ¢ CALLS , LIBSSIGNAL : 
04 00033 2$: RET : 2803 


; Routine Size: 52 bytes, Routine Base: S$ CODES + 0C80 


te igen } 


a 
> 
ae 
fond 
wv 


LAT Control Program 16-Sep-19 r 94:49:38 


AX-11 Bliss-32 V4. Page 89 
LCPK_SHOWDEVCOU Show Ethernet device counters 14-Sep-1984 I Q 


VAX-11 eit 
DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 (26) 


: 
g 


$36 ZSBTTL “LCPK_SHOWDEVCOU Show Fthernet device counters’ 

287 ROUTINE LCPK_SHOWDEVCOU (CTRDSC) = 

695 'e4 

$38 FUNCTIONAL DESCRIPTION: 

639 Convert and write the Ethernet device counters to sys$output. 
701 

ry CTRDSC Address of counter block descriptor 

7 IMPLICIT INPUTS: 


counters in Ethernet driver 


oO 
co 


IMPLICIT OUTPUTS: 


3 


MEUM (SO OONAUES WN "OO OONOUS WN —O0 


ee ee a Nabe! ae ae a 


i 
} 
FORMAL PARAMETERS: 


3 1 

3 1 

r 1 

3 1 

3 1 

3 1 

3 1 

3 1 

: 1 

: 1 

3 1 

3 1 

: 1 

3 1 

: 27 1 

3 1 

: e7 1 

3: e7 1 

; 2710 1 

3: e711 8 1 

2 ar 8 1 ROUTINE VALUE: 

3 at : ; COMPLETION CODES: 

3; 2715 8 1 error values returned 

r at 8 1 

3; 271 8 1 SIDE EFFECTS: 

; 2718 8 1 

3; 2719 8 1 NONE 

3: 2720 8 1 

3; 2721 8 1 !== 

3: 27 ¢ 8 1 

s 27 8 BEGIN 

3: 2726 8 

3 2725 837 LITERAL 

3 2726 838 DEVNAMSIZE = 16 

> 2727 839 CTRBUFSIZE = 512 

3; 2728 840 3 

3 2729 841 

3; 27 Hh BIND 

3 4 1 Bei DEVNAMCTRL = DESCRIPTOR (°!AC!UW") 
3: 27 ¢ a? 

3 27 6 LOCAL 

3: 2735 Bee LT : REF BLOCK C,BYTE), 
: 27 8 DEVNAMSTR : VECTOR CDEVNAMSIZE, BYTE]. 
3: a7 Ben DSC : BLOCK CDSC$K_2 BLN, ore e 
: 2738 50 RDCTRDSC : BLOCK COSC$K_7_BLN, BYTEJ, 
3; 2739 851 UCB : REF BLOCK C,BYTEJ, 
3; 2740 26 ORB : REF BLOCK L,BYTEJ, 
3: 2741 5 DDB : REF BLOCK [,BYTEJ, 
3; 274 54 10SB : VECTOR (4, WORDJ, 
: 274 55 STATUS, 

3 2766 2$ DEVCHAN : WORD, 

3: 2745 5 PID, 

: 276 58 OWNUIC, 

3; 274 59 VPROT : WORD 

; 2748 0 3 


<r 


$5: 
? 


MIPIPOPOPoNofoTD 


o 
wv 


nena 
SSRIS AK UN Ho} 


761 


vuvVvUvUU 


LA 
L 


ATC 
CPK_ 


r 


ODONAULE WN 0 OONOuM 


Sesessesss 
Par ar Sr Soar Par Saar Pr Ps 


Gubeveou”’ sn Show Ethernet device counters 1$-$ep-1984 93; $3: 8 


VAX-11 Bliss-32 


If the data Link UCB is gone, then we are inactive 


= ,LCPSL_AREA; 
ee = th GHBSL_UCB) ) EQL 0 


RETURN SS$_DEVINACT 


LT 
F 
HE 


i Get pointers to the ucb and ddb for datalink to make its name 
so we can assign a channel to the data Link device ucb 


DDB = .UCB CUCBSL_DDB) 

DEVNAMDSC COSCSA “POINTERI = DEVNAMSTR: 
DEVNAMDSC CDSCSWILENGTH] = DEVNAMSIZE: 
STATUS = $FAO 


DEVNAM 
PE VNANDSC ‘ toscsw. LENGTH], 


D 
DDB CDDB$T_NAME) 
-ucB CUCBS@ _UNITS 


IF NOT STATUS 
THEN 
RETURN .STATUS 


i 
i Fix the ucb so we can assign a channel to it... save current 
settings first. 


$L 
OWNUIC = .ORB CORBSL ‘at 
VPROT = .ORB CORBS$W_PROTJ; 
UCB CUCBSL_P1D) = 07 
ORB CORBSL-OWNER] = 0; 
ORB CORBSW_PROT] = “0; 


Assign a channel to hold it here and allow us to shut it down 
later and deassign the ucb to cause it to go away. 


STATUS = SASSIGN (DEVNAM = DEVNAMDSC, CHAN = DEVCHAN); 
IF NOT .STATUS 


EN 
RETURN .STATUS 


' 

Setup the counters return buffer descriptor 
SSETDSC (RDCTRDSC, CTRBUFSIZE, AREA); 
' 
i 
i 


Read the counters from the Ethernet device 


V4.0-74 
DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 


Page 


<r 
o,r 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


TT 
LATCP LAT Contro am 16-Sep-1984 01:49:1 VAX-11 Bliss-32 V4.0-7 P 1 
¥04=000 LEPK SHOUDEVCOU” Show Ethernet device counters Jecteb-ione Secdriee || btechumGnAS PERCY AE seciLarce.as2:1 28) 
: 280 p 31 STATUS = $010W | 
; B 3 FUNC = 10S, SENSEMODE OR IOSM_CTRL OR IOSM_RD_COUNT, 
? 5810 B 2988 igse = iose | 
> 2811 P 29 P2 = RDCTRDSC 
3 if 924 ); 
: 281 925 | 
> 2814 9 é ' 
; 13 ; { ; Restore device settings | 
; i$ 929 UCB CUCBSL_PID] = .PID; 
: 2818 930 ORB CORBSL-OWNER] = .OWNUIC: 
> 2819 931 ORB CORB$SW"PROT] = .VPROT; 
; 2820 9 é 
3; 2821 9 ! 
; : ¢ 4 : Deassign the channel that we have. 
3 He 936 SDASSGN (CHAN = .DEVCHAN); 
3 826 938 RETURN .STATUS ! Return the status from the READ QI0 
; $856 940 1 END; 
57 55 21 43 41 21 OOEOQO P.AFP: ASCII \!AC!UW\ : | 
00E0 "BLKB 2 
00000006 O0E08 P.AFO: LONG 6 : 
00000000' OOE0C [ADDRESS P.AFP : 
DEVNAMCTRL= P.AFO 


-PSECT SCODES,NOWRT,2 
OOFC 00000 sacha aana > ae 


WO soye Ree R3,R4,R5,R6,R7 ; 2805 
2c ¢2 0000 SUBL2 F 
30 0000" CF 00 0000 MOVL sth AREA, LT : 2865 
14 AO 00 0000A MOVL ; 2866 | 
6 1 9005 BNEG ; 
50 2004 =F 3¢ 9019 MOVZWL 18406. RO : 2868 | 
50 28 «Ad DO a9016 1$ MOVL  40(UCB) > 2874 
18 AE 1C AE 9E OOOTA MOVAB DEVNARSTR. OP EVNAMDSC +4 > 2875 
14 AE 1 80 O001F MOVW #16, DEVNAMDSC j 3876 
7E 54 AS 3C 00023 MOVZWL B4 (UCB), -(SP) > 2884 | 
14 Ad 9F 00027 PUSHAB 20(DDB) ; 
1¢ AE 9F OOO2A PUSHAB DEVNAMDSC ; 
083 AE OF 99 D PUSHAB DEVNAMDSC ; | 
0000" CF 9F 000 PUSHAB DEVNAMCTRL ; 
000000006 90 95 FB 00 CALLS #5, SYSS$FAO ; 
4 0D B MOVL 0; STATUS : 
70 54 €9 0003E BLBC STATUS, 2$ ; 


; 2885 | 
} 
| 


| 
| 
| 


N11 
LAT Control Program 16-Sep-1984 01:49:17 VAX-11 Bliss-32 V4.0-74 Page 92. 
CCPK. SHOWDEVCOU" Show Ethernet device counters 1o-ge8- 1382 93:99:38 DISKSVMSMASTERSLLAT SRCILATCP.B32:1 9 (285, 
? 2C A3 DO 00041 MOVL 44(UCB), PID : 2893) 
2 1¢ Ad OD 9043 MOVL  28(UCB), ORB : 2894 
§ 62 00 00049 MOVL (ORB), OWNUIC + 2895 
18 Ad BO 0004 MOVW  24(0RB), VPROT + 2896 
2C =A3 D4 0005 CLRL  44(UCB) : 2897 
62 D4 0005 CLRL = (ORB) + 2898 
18 A2 B4 0005 CLRW  24(0RB) + 2899 
7—E 7C 0098 LRQ ss = (SP) + 2904 
08 AE 9F O005A PUSHAB DEVCHAN : 
20 AE 9F 0005D PUSHAB DEVNAMDSC : 
000000006 90 04 FB 00060 CALLS #4, SYSSASSIGN ; 
4 20 D 9067 MOVL RO, STATUS : 
44 4 : 6A BLBC STATUS + 2905 
Oc AE 0200 8F 3¢ 9060 MOVZWL #512, RDCTRDSC + 2913 
10 AE 0000° cr 9—€ 000 MOVAB AREA, RDCTRDSC+4 ; 
— 7C 90079 CLRQ = = (SPS + 2924 
7E 7C€ 00078 CLRQ (SP) : 
10 «AE OOF 90070 PUSHAB RDCTRDSC ; 
7E 7C 00080 CLRQ ss = (SP) : 
7E 04 00082 LRL ss = (SP) : 
3 AE 9F 00084 PUSHAB 10SB $ 
7E 0327 8F 3C 00087 MOVZWL #807, -(SP) ; | 
7E 28 AE 3C 0008C MOVZWL DEVCHAN, =(SP) : 
7E 04 00090 CLRL = (SP) ; 
000000006 00 OC FB 00092 CALLS #12, SYS$QI0W : 
5 50 D0 00099 MOVL 0, STAT : 
2c AB 57 dO 0009C¢ MOVL Ib, 44(UCB) F 2929 
62 56 DO 000A0 MOVL  OWNUIC, (ORB) : 2930 
18 A2 55 ny 000A3 OV PROT, 24(ORB) + 2931 
7E 6— 3C OO0A7 MOVZWL DEVCHAN, -(SP) : 2936 
000000006 00 01 FB OOOAA CALLS #1, SYS$DASSGN : 
50 54 00 00081 2$: MOVL STATUS, RO : 2938 
04 00084 RET : 2940 


; Routine Size: 181 bytes, Routine Base: S$CODES + OCB4 


12 


LATCP LAT Control Program 1b-s6 -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 93 LA] 
v04-000 LCP_DISPDEVCOU Sh isplay the Ethernet device cou 12-808- 1 3be 93:49:38 DISKSVMSMASTER:CLAT. SRC LATCP.B32;1 . (27) v0é 
; . 0 941 1 ZSBITL "LCP _DISPDEVCOU Display the Ethernet device counters’ ij 
3 1 94 1 ROUTINE LCP_BISPDEVCOU (CTRDSC) = ae 
; 28 ¢ 9435 (1 $s: 
: 944 1 !44 3 j 
; ¢ Bee ! FUNCTIONAL DESCRIPTION: : 3 
3 § 8th ! Convert and write the all the Ethernet device counters to sys$output. ‘ ; 
: 4 : 8¢8 : FORMAL PARAMETERS: ‘ ; 
3 ry +} } } CTRDSC Address of descriptor of the counters string | : ; 
i 2848 388 | i impuicit inputs: | 3} 
; 284 954 1! ij 
3 2844 955 1! NONE | : 3 
3; 2845 956 1! i; 
3; 2846 957 1 ! IMPLICIT OUTPUTS: é 3 
3 seek Soee 1! : 3 
3; 2848 228 1! NONE | - | 
; 2849 2960 1 } | 3 
; 2850 2961 1 ! ROUTINE VALUE: ij 
3; 2851 ae: 1 ! COMPLETION CODES: é ; 
3 sees 9635 1! | : 3 
: 285 2964 1! error values returned ‘3 
3: 2854 2965 1! | a. 3 
; Spee 2966 1 ! SIDE EFFECTS: : ; 
: 2856 2967 1! 33 
3; 2857 2968 1! NONE . 
; 2858 969 1! 3 3 
3; 2859 970 1 !=- | 3 3 
; 2860 2971 1 | ie | 
3; 2861 297 2 BEGIN 3 3 
: 2862 2973 2 s 3 
; 2863 2974 2 LITERAL PARMSIZE = 50; 34 
> 2864 2975 2 35 
3; 2865 2976 2 LOCAL | 3 3 
> 2866 2977 2 PARAM : VECTOR CPARMSIZE, LONG], 3 ; 
: 2867 2978 2 PINDX, 23 
; 2868 2979 2 CTRID a 
; 2869 2980 2 STATUS, 3 
: 2870 2981 VALUE : 3 
3; 2871 298 BITMA ij 
: e872 298 RCV_BITMAP : BLOCK C4, BYTE], | 3 | 
3; 287 984 § XMT_BITMAP : BLOCK (4, BYTE], ty 
3 2874 985 PTR”: REF VECTOR CJ | 3; 
3; 2875 986 : : | 
3; 2876 987 2; 
3 2877 988 RCV_BITMAP = 0; 3 
; 2878 989 XMT_BITMAP = 0; 2 j 
; 2879 990 | 3 | 
3; 2880 991 ! Loop through all the counters 2 
; 2881 99 ! 2 
: Bae 99 PINDX = 0; ae 
; 994 CTRID = CTRNAMES; 34 
3 2884 995 WHILE ..CTRID NEQ ~1 3 
; 2885 9 dO 2; 
3; 2886 299 BEGIN a3 


LATCP LAT Control Program 1-425 =-1984 VAX-11 Bliss-32 V Page 94 LA) 
v04-000 LCP_DISPDEVCOU SD i splay the Ethernet device cou a aee 1 93: $3 38 DISK $vNGH TER: lar? She LATCP.B32;1 . (27) | v0é 
; 2887 99 : | 24 
3 3 Get the counter values oy 
; 2890 001 LCP EINDCOU cTRDSC. .«CTRID, VALUE, BITMAP); | 3 i 
3 2891 0¢ PARAM [.PINDX] = .VALUE; : 
; 3 8 SELECTONEU DRT TRIB. OF 

: 289 04 SET 

3; 2894 005 

3; 2895 4 CNMASC_CTLIN_RFL] : ! If receive failures 

: 34) 00 4 ( } 

3 289 43 4 RCV_BITMAP = .BITMAP ! Save the bitmap 

Be By ‘ 

: 2900 011 CNMASC_CTLIN_SFLJ : ! Is send failures 

; 2901 Ole 4 ( | 

3 306 013 4 XMT_BITMAP = .BITMAP ! Save the bitmap 

: 290 014 ); 

3 2904 015 

3; 2905 016 TES 

3: 2906 017 : 

3: 2907 018 

: 2908 019 PINDX = .PINDX + 1; ! Skip to next parameter 

3; 2909 $30 CTRID = .CTRID + 4 ! Skip to next counter ID 

: 2910 021 | 

3; 2911 3058 END | 

g saig 305 s 

3; 291 Hi 4 

: 2914 025 ! 

3; 2915 3026 § ! Convert the counters for output 

3; 2916 3027 ! 

g a4 4 $056 § SSETDSC (OUTDSC, OUTBUFSIZE, OUTBUF); 

3 2919 P 3080 § STATUS = $FAOL 

3; 2920 P $083 ( | 3 Ff 
3: 2921 P O38 § CTRSTR = DEVCTRSTR, 

3 3928 P 303 OUTLEN = OUTDSC CDSC$W_LENGTH), | 

; $35 P 3034 OUTBUF = OQUTD 

> 2926 P 3035 PRMLST = PARAMLO) 

3: 2925 036 5 

3: 2926 037 

3 44 $33 IF NOT .STATUS THEN RETURN .STATUS; 

: 380 bey STATUS = LIBSPUT_OUTPUT (OUTDSC); | 

: 2931 04 IF NOT .STATUS THEN RETURN .STATUS; 

: 836 04 

3 293 044 | 

3 B3e Bee : Print the receive mask bit names that are present 

: 2936 Th IF .RCV_BITMAP CO, 0, 16, 0) NEQ 0 

3 2937 048 THE 

3; 2938 049 BEGIN 

3; 2939 320 ! 

3 0 51 ! Print the header 

: 2941 628 ! 

; ok 4 05 STATUS = Toa) OUTPUT (RCVERRMASK); : : 

3 294 054 PTR = RCVERRBITS; ! Point to the translation tbl 
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LAT Control Program 1:49:1 VAX-11 Bliss-32 V4.0-74 
v04-000 LCP_DISPDEVCOU Display the Ethernet device cou 14-Sep-1984 95:97:38 DLEKSVMGHASTERSCUAT SRCSLATCP.832:1 
4 5 INCR INDX FROM 0 TO 32 BY 
ie oo pa 
i 4 — 
33 eo Sap egpateny oon! rg Sap 
7 . + 
92) Ose 4 
928 94 2 ‘ EXITLOOP 
936 065 4 
336 ay ca daeed We take ack ae 
958 069 4 THEN ~ a : ahi 
939 970 4 % LIBSPUT_OUTPUT (.PTR C.INDX + 1] ) 
961 Ore ; : 
96 07 END 
4 074 ; 
oe 
O77 Print the transmit mask bit names that are present 
079 IF gXMT_B1TMAP CO, 0, 16, 03 NEQ 0 
081 BEGIN 
08s ! 
ts Print the header 
085 STATUS = LIBSPUT_OUTPUT (XMTERRMASK); 
086 PTR = X BITS; ! Point to the translation tbl 
087 ee INDX FROM 0 TO 32 BY 2 
7 BEGIN 
2 : If the string desc is blank, then exit loop 
4 if gPTR C.INDX + 1) EQL 0 
? EXITLOOP 
4 1 
: If the bit is set, then write the string 
4 if .XMT_BITMAP CO, .PTR C.INDX], 1, 0] 
2 END LIBSPUT_OUTPUT (.PTR C.INDX + 1] ) 
END 
: SUCCESS 
END; 


Page 95 


(27) | 


Be Oe Be Be Se Be Be Be Se Se Se Se Se Oe Se Se Se Se Se Se Se Se Se Sr Fe Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Seas Fe Se Se Se ee esas 


<r 
<= 


4 oft .28 off off off O08 off off off off off off oft of off off ofl ofl oft of ol od ol ol ol ol ot oft oft oft oft oft off oft oft ofl ofl oft off oft off oft off oft oft off off oft oft off ot off oll oli oft ott od 
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LAT Control Program 1h-36 -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Pp 
LCP_DISPDEVCOU Sh isplay the Ethernet device cou 1a-Sep-19 4 03: 99:3 DISKSVMSMASTER:CLAT.SRCIJLATCP.832;1 390 


LATCP 
v04- 


<r 
= 


O1FC 00000 LCP_DISPDEVCOU: 
WORD 


« 7 

2 

| i 4 

| 2 3 

| : ‘ 

8 10009999. $6 E 90008 VAB OUTDSC, R : | 3} 

3 0000 0006 0 9 900 MOVAB LissPut OUTPUT, R7 : | 3% 

FF30 ce 3 000 MOVAB =208(SPJ, SP : 3 

001 CLRQ XMT_BITMA > 2989) 3 i 

52 D4 0001 CLRL_  PINDX ; 2993 ij 

53 0000" CF i 001 MOVAB  CTRNAMES, CTRID > 2994 $4 
FFFFFFFF © BF $3 D1 OOOIC 1$ CMPL  (CTRID), #1 > 2995 i 
6 13 00 BEQL «6s 4$ : 3 | 

5E DD 000 PUSHL_ SP : 3001 3 

08 AE 9F 00027 PUSHAB VALUE : 3 i 

63 DD OO02A PUSHL (CTRID) : 3; 

04 AC DD 0002C PUSHL  CTRDSC : 3 i 

0000v CF 04 FB 0002F CALLS #4, LCP_FINDCOU ; 2 j 
08 AE42 04 AE 00 000 MOVL VALUE, PARAMCPINDX] ; 3002 ae 
00000426 8F 63 D1 O003A CMPL  (CTRIO), #1062 : 3006 : i 
05 12 00041 BNEG = 2$ : 3 | 

56 D0 00043 MOVL BITMAP, RCV_BITMAP : 3008 33 

11 00046 BRB $ : 3007 3 | 

00000424 8F D1 00048 2$ CMPL (CTRID), #1060 : 3011 3; 
12 0004F BNEQG © 3$ : 3} 

55 DO 00051 MOVL BITMAP, XMT_BITMAP : 3013 33 

D6 00054 3$ INCL. PINDX ; 3019 : i 

53 CO 00056 ADDL2 #4, CTRID : 3020 33 

11 00059 BRB 1$ ; 3:3 

68 0400 3¢ 00058 4$ MOVZWL #1024, OUTDSC : 3028 3:3 

04 «AB 08 9E 00060 MOVAB  OUTBUF, OUTDSC+4 F 33 
08 9F 00065 PUSHAB PARAM : 3036 33 

DD 00068 PUSHL 8 ; 73 

DD 0006A PUSHL : gs 3 

0000' 9F 0006C PUSHAB DEVCTRSTR : 33 

000000006 00 FB 00070 CALLS #4, SYSSFAOL ; 33 
54 D0 00077 MOVL RO, STATUS : 33 

ES OOO7A LBC ©=-_- STATUS, 5$ : 3038 33 

DD 0007D PUSHL R : 3040 : 3 

FB O007F CALLS #1, LIBSPUT_OUTPUT : : 3 

00 0082 MOVL RO, STATUS F : 3 

8 0008 BLBS STATUS, 68 ; 3042 3 

BO 09 v STATUS, RO ; 24 

B5 000 RCV_BITMAP $3047 | : | 

13 00 QL 3 s; 

9F 000 PUSHAB RCVERRMASK : 3053 a: 

FB 000 #1, LIBSPUT_OUTPUT ; ? 

DO 000 VL »_STATU 3 2 j 

9E 000 RCVERRBITS, PTR > 3054 ? 

D4 000 I : 3061 2; 

09 2) 4(PTR)CINDXI, RO ; 3 

E1 00 (PTR)CINDX], RCV_BITMAP, 8$ ; 3068 :} 

DD 00 : 3070 2 

FB 000 #1, LIBSPUT_OUTPUT ; 3! 


F 12 
Sep-1984 


LATCP LAT Control Program 16- 249: VAX-11 Bliss-32 V4.0-74 Pa 7 
v04-000 LCP_DISPDEVCOU Display the Ethernet device cou 122868718 4 93:95:38 DASKSVMEMASTERSELAT SRCILATCP.B32:1 9 335 
FFE9 52 02 F1 00082 8$: ACBL #32, #2, INDX, 7$ : 
8 4 $$: Ist tnt “BI hab : 3395 
0000" CF 9F 0008 PUSHAB XMTERRMASK : 3085 
7 1 FB ¢ CALLS ay LIB$PUT_OUTPUT : 
: 0 p C MOVL RO. STA : 
0000' f Hi ce MOVAB KNTERRBITS, PTR : 3086 
50 04 A344 CD 10S: MOVL LR) CINDX). RO : 
10 D BEQL 12$ 3 
05 55 6344 £ D BBC (PTR)CINDXJ, XMT_BITMAP, 11$ t 3100 
DD 00009 PUSHL RO : 3102 
67 Fe 0B CALLS # LIgsPut OUTPUT : 
FFE 54 : 0 F OODE 11$ ACBL #32, #2, INDX, 10$ + 3100 
5 1 DO OO0E4 12$ MOVL #1, RO : 3110 
04 000E7 RET : 


; Routine Size: 232 bytes, Routine Base: $CODE$ + 0069 


<- 
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7 
2 
2 
i 
i 
i 
i 
i 
i 
3 
4 
q 
i 
4 
x 
i 
i 
} 
3 
} 
7 
i 
3 
q 
3 
3 
2 
J 
q 
3 
q 
3 
3 
7 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


12 
LATCP LAT Control Program 1$-56p-19 4 4:49:16 VAX-11 Bliss-32 vi Sone Page 98 
v04-000 LCP_FINDCOU Find the specific device counter 14-Sep-1984 12:37:2 DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 (28) 
1 111 #1 ZSBTTL ‘LCP_FINDCOU Find the speci tic device counter’ 
¢ 11 ! ROUTINE LCP_FINDCOU (CTRDSC, CTRNAME, VALUE, BITMAP) = 
116 1 See 

5 132 : } FUNCTIONAL DESCRIPTION: 
Boe 17 ! ; Convert and write the all the Ethernet device counters to sys$output. 
909 118 FORMAL PARAMETERS: 
011 121 1! CTRDSC Address of descriptor of the counters ete ing 

\§ 1 ¢ 1! CTRNAME Name (ID) of the counter id code to search for 

1 1 1! VALUE Returned longword value for the counter if found 
oie : $ : BITMAP Returned longword value for the bitmap if found 
O18 1 6 1 ' IMPLICIT INPUTS: 
01 1 1! 
rr ts dh 
a8 130 1 i IMPLICIT OUTPUTS: | 
an 
034 134 1 ! ROUTINE VALUE: 
° ? ; 5 } COMPLETION CODES: | 
‘ : ; { error values returned | 
029 139 1 ! SIDE EFFECTS: 
030 140 1! 
031 141 1! NONE 
O36 3168 1! 
b3 ae os 
035 145 2 BEGIN | 
O39 149 MAP 
it 148 CTRDSC : REF BLOCK C,BYTE) 
039 149 3 
eH Soca 
oh 136 CTRLEN, 
04 15 CTRPTR : REF BLOCK C,BYTE), 
pee 13 STATUS, 
nt! Sane 
bc? 139 COUID : BLOCK C4, BYTE), 
048 158 RRMAP 
$80 180 : | 
051 161 CTRPTR = .CTRDSC CDSCSA_POINTER); 
p26 196 CTRLEN = .CTRDSC COSC$W_LENGTH); } 
05 16 OUCOD = -1; ! Set to illegal value 

54 164 WHILE .CTRLEN GTR O AND 
Rae 192 -COUCOD NEQ .CTRNAME 
089 189 BEGIN 


H 12 
LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 99 
LCP_F INDCOU Find the specific device counter 12286871382 93:93:38 DL SKSVMSMASTERSELAT SRCILATCP.B32:1 7. (28) 
6 COUID = .CTRPTR Fo, 9 16, 0): ' Get the counter id + bits 
§ COUCOD = .COUID CNMASV._CNT._TYP); i Get ust the counter code 
CTRPTR = .CTRPTR + 2; ' Skip counter id field 
re CTRLEN = .CTRLEN = 2; ! Consume byte count 
7 ! 
064 74 ' Get the bitmap if present 
065 75 i hie | 
066 ud: IF .; WID CNMASV_CNT_MAPJ 
ods 7 THEN . 
4 GIN 
3 7 ERRMAP = .CTRPTR CO, 0, 16, 02; ! Get the bitmap 
CTRPTR yng + 2; ! Skip it 


LEN - $ Consume bytes 


Wwr—ow” 


SANs 
OCONEE 


' 
Dispatch on counter width 
ECTONEU .COUID CNMASV_CNT_WID] OF 


SIS S5 
= 


om] 
Oo 
uw 


081 
08 
08 
084 


! Unknown??? 


C1) 


8 bit counter 


SSLEARANSLSSSLEARFAVESES 


=o 
Cc 
= 
> 
a 

" 


-CTRPTR CO, 0, 8, 01; 
“CTRPTR + { 

C2) : 

COUVAL = .CTRPTR CO, 0, 16, 02: 
cr *CTRPTR + 3 


16 bit counter 


COOooCoooo°oo 


PUN VS Sano nr wV—OSRNS AROS 


(3) 32 bit counter 
-CTRPTR CO, 0, 32, 0); 
-CTRPTR + 4 


SSLESRANLS 


F_.COUCOD NEQ .CTRNAME 
HEN 


N 
4 

4 

4 

4 

4 ( 

RETURN (LCP$_INTERNAL) 
4 

4 

4 

4 

4 

4 


kt at et ot ot ot ot = 
ee 

Pwtre-O 
PMORSPoMoONoNoNNoNoNoNnofoNngny 
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LATCP LAT Control Program 14-98 -1984 49:1 VAX-11 Bliss-32 V4.0-74 
v04=000 LCP_F INDCOU Find the specific device counter 1a-8ep-19 4 93:49:38 STEKSVMGMASTER SCL AT SRCILATCP.032:1 Page 380 
3; 3115 5 -VALUE = 0; 
i $116 ¢ *BITRAP = 6: | 
; 311 STATUS = FAILURE | 
ih 
; 31 0 BEGIN 
: 3121 1 .VALUE = .COUVAL; | 
3 31 ¢ ¢ -BITMAP = .ERRMAP; 
731 STATUS = SUCCESS 
; 3126 4 END | 
3 \¢3 5 $ 
4 : ; 8 RETURN .STATUS | 
: 3129 9 1 END; 
| 
003C 00000 LCP_FINDCOU: | 
-WORD Save R2,R3,R4,R5 3 3112) 
50 04 aC DO 00002 MOVL CTRDSC, R : 3161 
51 04 AO b0 000 MOVL 4(RO), CTRPTR : 
54 60 3C OOO0A MOVZWL (RO), N ; 3162 
53 01 CE 0000D MNEGL #1, C : 3163) 
54 05 00010 1$: TSTL  CTRLEN + 3164 
38 15 00012 BLEQ : 
08 ac 53 pi 00014 CMFL _COUCOD, CTRNAME : 3165 
4C 13 00018 BEQL : 
50 81 3C OOOIA MOVZ2WL (CTRPTR)+, COUID : 3168 
53 50 0c 00 EF 0001D EXTZ2vV. #0, #12, COUID, COUCcOD : 3169 
54 02 (2 90022 SUBL2 #2, CTRLEN : 3171 
08 50 0c gi 000 BBC wie, COUID, : 3176 
55 81 C 00029 MOVZWL (CTRPTR)+, ERRMAP : 3179 
54 2 C2 0002C SUBL2. #2, CT : 3181 
08 11 0002F BRB 3$ : 
D4 00031 as: CLRL  ERRMAP > 3184 
6000 8F 50 83 00033 3$: BITW  COUID, #24576 : 3193 
08 12 000 BNEQ 4$ : 
50 000000006 &F p 909 A MOVL § #LCPS_INTERNAL, RO : 3195 
4 00041 RET ; 
01 50 02 OD ED 0004¢ 4$: CMPZV #13, #2, COUID, #1 : 3198 
05 12 904 BNEQ ; 
52 1 9A 00049 MOVZBL (CTRPTR)+, COUVAL : 3200 
2 11 0004C BRB 1$ : 3201 
02 50 02 D FD 0 4E 5$: CMPZV #13, #2, COUID, #2 : 3204 
5 5 BNEQ 6$ ; 
52 81 3¢ 0005 MOVZWL (CTRPTR)+, COUVAL : 3206 
B6 11 00058 BRB 1$ ; 3 07 
03 50 02 D ‘ O03A 63: CMPZV #13, #2, COUID, #3 : 3210 
AF F BNEQ 1$ ; 
52 81 D 61 MOVL (CTRPTR)+, COUVAL > 3212 
AA 11 00064 BRB 1$ : 3164 
08 ac 33 D1 00066 7$: CMPL coucoD, CTRNAME : 3222 
09 13 6A BEQL $ : 
0c BC D4 0006C CLRL = aVALUE > 3225 


$24 the specific device counter 1-46 3$8:} 7 9}: $3: 48 Disk SyMShAaTE tit OSRCSLATCP. B32;1 Page 33) 


amu : 


10 
Be 
of BC é D ag MOVL COUVAL, @VALUE : 3231 
1 ¢ D MOVL §ERRMAP, aBI1TMAP : 323 
D D MOVL = #l, eT TUS 
1 7 Th 3 
04 00080 RET 3239 


; Routine Size: 129 bytes, Routine Base: SCODE$ + 0E51 
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: 
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VAX-11 Blis . Page 1 
DISKSVM SfeacclAt sRCULATCP.032;1 oe 398 
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LCP_SHOWSERVCOU Show SERVER counters 


LAT Control Pr 
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LATCP AT Control Program 18-Se -1984 01:49: VAX-11 Bliss-32 V4.0-74 P LA) 
v04=000 CP_SHOWSERVCOUS Show SERVER counters 1 ~3007} 382 93:93:38 DTEKSUMGMASTERSCU AT SRCSLATCP.832;1 ~ a v4 
1 97 SIGNAL (.STATUS) Fe 
: 38 | : 
1 ; 
191 | 3 i 
136 a : Convert the counters for output one at a time ti; 
194 § If AREALRET_SIZE EGL 0 | 3! 
196 5 SIGNAL (LCPS_NOSERVERS) 33 
19 SE a3 
198 0 BEGIN 33 
199 0 INCR INDX FROM AREA 3 
00 TO AREA + ,AREA_RET SIZE = (LCB_K_LENGTH + GHBSK_NAMELEN + 1) 33 
91 = BY LCB_K_LENGTH”+ GABSK_NAMELEN+"1 ij 
0 BEG! 3:3 
04 PTR = .INDX; $s; 
05 CTRBUF [1] = .PTR LCB_L_MSG_RCV}; : i 
06 CTRBUF : = .PTR CLCB-L-MSG_XMTJ; 33 
0 CTRBUF = .PTR CLCBIL-MSG_REXMTI; 33 
208 CTRBUF (4) = .PTR LCBW_SEQ_ERRI: 
09 CTRBUF [5] = :PTR CLCB~B-INV-MSG);: 
10 CTRBUF (6) = .PTR CLCB~B-INV~SLOT); 
$18 PTR = .PTR + LCB_K_LENGTH; ! Skip over counters 
514 IF .PTR CO, 0, 8, 02 EQL 0 | 
15 THEN 
16 CTRBUF [0] = UNKNOWN 
$i BEGIN 
219 CTRBUF [OJ = DSC; 
220 $SETDSC (DSC, .PTR CO, 0, 8, 03, PTR C1, 0, 8, 03) 
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SSETDSC (OUTDSC, OUTBUFSIZE, OUTBUF); 
saad = SFAOL 


SERVCTRSTR 
OUTDSC COSCS$W_LENGTH), 


TDSC, 
CTRBUF [OJ 


MIMIPOPUNIPOPory 


BREESE Ap tee pet ON a eb ah eee Nad 
fa {SSRIS WNC COnNOufwn— 


vuvvUvUU 


WAAAA AAAI AAA AAAI NAINA AAAI AIA AAAI AAAI NIAAA NINA 


o 

i= 

—~ 

@o 

Cc 

nn 
“nun 


IF NOT .STATUS THEN SIGNAL (.STATUS); 
STATUS = LIBSPUT_OUTPUT (OUTDSC); 

IF NOT .STATUS THEN SIGNAL (.STATUS) 
END 


BEES & FE AMWNWNA AAAI POPU NIPINPUNNUIYN 2 OO OS SS 


AANA ANIA AIAN AAI AAAI NIAAA 


Sees 


WR 9 ODN UE WN 9 OO NOUS WIN $9 OBNOUES WN "OVO ONOUE WN OC @ 


END 
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LATCP LAT Control Program 16-Sep-1984 01:49: VA 2 V4.0-74 
9 13-308 - 1 3be 03:45:38 I a NAT SRCSLATCP.83251 a (29) 


v04-000 LCP_SHOWSERVCOU Show SERVER counters 
; 3245 3354 1 END; 


| 
«PSECT SPLITS,NOWRT,NOEXE ,2 
| 
| 


4E 57 GF 4E 48 4E 55 E10 P.AFR: .ASCII \UNKNOWN\ ; 
90000007 0£18 P.AFQ: .LONG : 
00000000" O0E1C “ADDRESS P.AFR : 

UNKNOWN= P.AFQ 


-PSECT S$CODES,NOWRT,2 
OOFC 00000 LCP_SHOWSERVCOU: 
«WORD 


Save R2,R3,R4,R5,R6,R7 : 3241 
57 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R? : 
56 0000" CF 9E 00009 MOVAB OUTDSC, R6 ; 
Se 98 AE 9E SO00E MOV -104(SP), SP : 
0060 8F FF 8F 6 00 2C 0001 MOVC #0, (SP), #255, #96, AREA ; 3289 
FSFC 666 OOO1A : 
7E 04 00010 CLRL = = (SP) + 3295 
0000V CF 9F OOOTF PUSHAB LCPK_GETSERVCTRS : 
900000006 00 0 FB 90085 CALLS #2, SYSSCMKRNL : 
53 50 DO 0002A OVL 0; STATUS F 
05 53 £8 0002D LBS STATUS, 1$ : 
53 DD 00030 PUSHL ATUS : 3297 
67 01 FB 000 ‘ CALLS #1, LIBSSIGNAL : 
52 FC AG DO 00035 1S: MOVL  AREA_RET_SIZE, R2 : 3303 
0A 12 00039 BNEQ : 
000000006 8F DD 00038 PUSHL #LCP$_NOSERVERS : 3305 
67 01 FB 00041 CALLS #1, LIBSSIGNAL ; 
04 90044 RET : | 
54 FSFC C6 9E 00045 2$ MOVAB AREA, R4 : 3308 
55 F5SDB C642 9E O004A MOVAB AREA-33CR2J, RS : 3309 
7B 11 90050 BRB aS : 3310 
52 54 00 0052 3$ MOVL —INDX, PTR > 3313 
04 AE 04 A2 00 9005 MOVL  4(PTR), CTRBUF+4 : 3314 
08 AE 8 4 OOSA MOVL (PTR) +, RBUF +8 3 $312 
OC AE 04 =A p 9005 MOVL  4(PTR), CTRBUF+12 : 3316 
10 AE 08 A2 3C 0006 MOVZWL 8(PTR). CTRBUF+16 : 3317 
14 AE A2 9A 006 MOVZBL 10(PTRS, CTRBUF +20 ; 3318 
18 =A A2 9A 060 MOVZBL 11(PTR). CTRBUF+24 : 3319 
5 oc £0 99 ADDL2 #12, PTR : 3321 
6¢ 95 0007 TSTB. = (PTR) : 3323 
07 12 0007 BNEQ 4$ : 
6E 0000° CF 9€ 00079 MOVAB UNKNOWN, CTRBUF : 3325 
10 11 0007E BRB $ : 
6E 60 AE 9E 00080 4$ MOVAB DSC, CTRBUF : 3328 
62. A BA 0084 CLRW = DSC +2 : 3329 
60 AE 62 98 9087 MOVZBW (PTR), DSC : 
64 «AE o1 A2 9E 0008B MOVAB WR) DSC +4 ; 
bb 0400 BF 3¢ 9090 5$ MOVZWL #1024. OUTDSC : 3333 
04 Ab 08 Abd 9E 00095 MOV OUTBUF, OUTDSC+4 ; 
4040 8F BB OOO9A PUSHR  #*M<R6.SP> > 3341 
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SHOWCHAR Display the LAT driver characteri 1e-8ep-19 4 93:933) DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 290 


ZSBTTL ‘LCP_SHOWCHAR Bh ape | the LAT driver characteristics’ 
ROUTINE LCP_SHOWCHAR : NOVALUE = 


<r 
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o 
s* 
-- 


le 
FUNCTIONAL DESCRIPTION: 


Obtain the common data area from the driver and then display 
interesting tidbits. 


FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

common data area in the driver. 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 
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SIDE EFFECTS: 
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2. ! Size of input and output strings 
' Size of parameter List in LONGs 
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Get the COMMON AREA in the driver and setup the descriptors. | 
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L LAT Control Proeres 16-Sep-1984 9}: 9:1 VAX-11 Bliss-32 V4.0-74 Page 109 
1) LCP_SHOWCHAR Display the LAT driver characteri 14-Sep-1984 12:37:2 DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 (31) | 
: tre ' (STATUS = SCMKRNL ( ROUTIN = LCPK_GETCOMMON ) ) 
: 4 SIGNAL (. STATUS) 
: 47 e 
3 47 $ 
; rs , Initialize descriptors 
; iss S$SETDSC (IDDSC, GHBSK_IDLEN, ID); 
; 4B SSETDSC (NODE_IDDSC, GHBSK_IDLEN, NODE_ID); 
; cB SSETDSC (SERVDSC, GHBSK_NAMELEN, SERV); 
; 48 SSETDSC (NAMEDSC, GHBSK_NAMELEN, NAME); 
3 490 STR = .OUTDSC CDSCSA_POINTER]; | 
: 49 
; § mht Pick up group codes, timer and skip host node status 
° : | 
; 88 495 MCASTIMR = .STR (0); | 
; 3389 496 PTR = CHSMOVE ( CHSRCHAR (STR C2), STR C3), GROUPS); 
; 3390 497 2 
: 3390 199 5 i Skip th des and host nod 
3 ' @ group codes and host node name. 
: 3398 3500 a ee 
: 3394 501 STR = .STR C2) + STR (3); ! Skip group codes 
3; 3395 $208 § STR = .STR CO) + STR (1); ! Skip host node name 
; 3396 $20 
3; 3397 504 2 ' 
; 3398 3505 2 ! Get host node id, then skip over it. 
: 3399 506 ! 
; 3400 507 NODE_IDDSC CDSCSW_LENGTH) = .STR (0); 
; 3401 508 PTR = CHSMOVE (.NODE_IDDSC COSCS$W_LENGTH], 
4 106 298 str CTI, -NODE_IDDSC CDOSCSA_POINTER]); 
: 3404 511 STR = .STR CO) + STR (1); ! Skip host node id. 
3 3405 51 
3; 3406 51 ! 
3: 3407 514 ' Get number of services 
; 3408 515 ! 
3; 3409 516 NUM_SERVICES = .STR (0); 
; 10 517 
3 3411 518 ! 
; \ 233 } Get the Ist service name and descriptor 
: 3414 521 NAMEDSC COSCS$W_LENGTH] = .STR (2); 
3 aia 2 § PTR = CHSMOVE T.NAMEDSC COSCSW_LENGTH], STR C3], .NAMEDSC CDSCSA_POINTER)); | 
: i$ 524 STR = ,STR C2) + STR (3); ! Skip Ist service name 
> 3418 525 1DDSC CDSC$W_LENGTH] = .STR (0); | 
; hh : § PTR = CHSMOVE (.IDDSC CDSC$W_LENGTH], STR C1), .IDDSC CDOSCSA_POINTER]); 
: 3421 528 
3 i : , If we have a second service name, then report the second service here 
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SROUCRAR “Display the LAT driver characteri 1 12: 3$8:} 3b 93: 43: 


if +-NUM_SERVICES LEQ 1 


N 
SERVDSC CDSC$W_LENGTH] = 0 
ELSE 


BEGIN 
cae = srt CO * STR (1); 
SERVDSC tDstsuiLe Levene = 


-STR (0); 
COSC$wW Hh GTH], ST J, 
SERVDSC DSceA ~POINTER)) 


Now display the relevant parts of the common area. 


2] VAX=11 AA 
:2 DISKSVMSMAST 


Skip ist service id 
! Skip 2nd rating 
R (1 


Convert the group codes to a nice printable ascii string 


LCP_CVTGROUPS (); 


Set up the parameter List and report the current characteristics 


NAMEDSC; 
SERVDSC; 
NODE IDDSC; 


tise LATVERSION); 
“AREA GHB$B~LATECO); 


IF _<AREA CGHBSL_TIM_ACT] NEQ 0 
P[8) = ACTIVE 


VUVUVUUU------ 
wn 
Ra Nand had 
nnnnnnne 
oun 
Do 
v 
o 
“ 


ELSE 

PC8) = INACTIVE; 
SSETDSC (DSC, STRSIZE, BUF); 
$F AOL 


crests = ZASCID 
STRING 


( 
*!'/LCP Characteristics: /:/" 
"Node name '18<\'AS\!> 


"Service Ident ification = NCEE 

"Groups = !AS!/ 

‘Multicast timer = 'UB se conds!/' 
LAT Version = '16<'!UB. TUB! > 


ia > = DSC, 
OUTLEN = DSC, 


Service name = '18<\!AS\!>!/', 


LAT Protocol is !AS!/' 


32 V4. reg 
ER: aie SRC LATCP.B32;1 


13 
1045000 tp SROWCHAR  Disolay the LAT driver characteri 18-50-1984 93; 3) Disk $y menas tree cat SRCSLATCP. B832;1 Page Hy 
: 1 P : PRMLST = PCO) 
; q e he | 
: : 2 LIBSPUT_OUTPUT (DSC) 
; 3486 59 END; 


.PSECT $PLIT$,NOWRT,NOEXE,2 


72 65 76 63 61 72 61 43 50 43 4C 2F 1 E20 P.AFT: .ASCII \!/LCP Characteristics!/!/Node name = !18\ ; 
SISSSC CSCC ESSE |: bs 
76 72 ; 3 20 6 S és ep : 53 20 21 i sc OOe Gs eASCII \K\<K92>\IAS\<92>\'> Service name = '1\ : 
65 66 6F GE 2F 21 1 5¢ 53 41 21 5C 3 33 OE sASCII \B8<\<92>\!AS\<92>\!>!/Node Identificati\ : 
9 74 61 $3 5 66 69 7 f g5 64 49 20 iad ; ; 
72 65 53 2F 1 c¢ 53 41 . D 9 6— 6F O00E80 eASCII Von = \K92>\!AS\<92>\!/Service Identifi\ : 
69 66 69 74 6 5 64 49 20 65 $ 69 76 OOE BF F 
21 =5C¢ 33 2 3 20 ¢ Q 9 gf gf e oS o} H Bee re ASCII \cation = \<92>\!AS\<92>\!/Groups = !AS\ : 
60 69 74 2 4 ; 61 6 9 74 6C 75 4D 2F 1 OO0EB8 «ASCII \!/Multicast timer = 'UB seconds!/LAT Ver\ : 
64 6E 6F 23 65 73 20 42 $2 1 20 3D 20 3 $3 OOEC7 : 
2% 42 55 21 3c 86 HOS 20 3 30 Gk Se a8 oS bores ASCII \si '16<!UB.!UB!> LAT P Lie 3 | 
e sion =: : at se rotoco 8 i Py 
6F $$ 50 3 54 41 «OC 30 0 20 : 21 4@ $2 ¢i OOEEF : 
21 20 69 20 6C 6F 63 6F 74 OOEFE : | 
2F 21 53 41 OOFOB eASCII \AS!/\ : 
O10EOQOEC OOFOC P.AFS: <LONG 17694956 : 
00000000" 00F10 .ADDRESS P.AFT : | 
| 
-PSECT $CODE$,NOWRT,2 
O3FC 00000 LCP_SHOWCHAR: | 
<WORD Save R2,R3,R4,R5,R6,R7,RB,R9 : 3418 
59 0000' CF 9E 0000 MOVAB SERVDSC. R9 ; | 
5E FD98 CE 9E 0000 MOVAB -616(SP5, SP ; 
7E D4 0000C CLRL = = (SP) > 3474) 
0000v CF 9F 0000 PUSHAB LCP GETCOMMON : | 
000000006 00 FB 0001 CALLS SYSSCMKRNL 3 
09 E8 0001 BLBS SFarg S, 1$ ; 
DD 0001C PUSHL STATUS : 3476— 
000000006 00 01 FB OO1g CALLS #1 UIBSSIGNAL ; | 
48 9 40 8F 9A 00025 1$: MOVZBL #64, IDDSC : 3482 
4c AD 08 A9 9E OO02A MOVAB. ID, IDDSC+ “2 ; 
0090 C9 40 8F 9A O002F MOVZBL #64, NODE_IDDSC : 3484 
0094 (9 50 a9 9E 00035 MOVAS NODE_ID RODE “IDDSC+4 : 
69 19 p 99 B MOVL #16, ~SERVDSC ~ > 3486 
04 a9 FO. OA ; 5 MOVAB SERV, CERVDSC #4 ; 
£8 a9 10 p 04 MOVL 16, NAMEDS : 3488 
EC a9 D8 ad ; 047 MOVAB NAME, NAMEDSC+4 ; 
56 OAFS 609 :«COD O04¢ MOVL ayrbéc’ +4, STR > 3490 
00EO0 9 66 9A 00051 MOVZBL (STR) MCASTIMR : 3495 
50 02 Ad 9A 00056 MOVZBL 2(STRS, RO : 3496 


<- 
o> 


2 of 288 ole 288 od ode 28d ode 2s ode 2 ke 28k ode 28d ode We 


H 
LATCP LAT Control Program 1 
v04-000 LCP_SHOWCHAR Display the LAT driver characteri 2 
57 03 =A A 
00B0) 3=—(t9 7 5 i sE 
6 02 A A 
8 86 $a 000g 
on BS HBS 
3 01 A E 00 
0090 f 66 98 : 75 
7 9} A 3 7A 
0094 09 iH 0090 ¢ § 007E 
6 96 A 000 
§ 2 08 
66 QA C 
eB A9 0¢ A6é 9B 9008F 
57 0 A6 4 0094 
Ec 69 67 E8 a9 g Bpbge 
56 02 =A A 0009 
56 57 CO OOOA 
48 Ad 66 98 Bao A 
57 01 A6 3 OOA9 
4C 89 67 48 AY 28 OOOAD 
01 58 01 00083 
04 14 00086 
69 B4 00088 
11 11 QOOBA 
56 66 9A 000BC 
56 57 CO 000BF 
56 D6 000C2 
69 66 9B 000C4 
06 B89 01 A6 69 28 000C7 
0000v CF 00 FB 000CD 
6E E8 AY YE 000D2 
04 AE 69 9E 00006 
OS AE 0090 C9 YE BRDk 
OC AE 48 AY YE OODED 
10 AE OEF8 C9 43 000E5 
14 AE OOEO C9 DO OOOEB 
18 AE 43 C9 9A OO0F1 
1c =AE OEF C9 9A se tad 
0104 C9 0 OOFD 
08 1 Sty 
20 «AE 0000" CF 9E 00103 
20 ve ggggs Fe BUN 
fB AD OOs00 OBE i Ont 
FC AD 60 AE 9E 00117 
5E $3 011C 
F8 AD OF OO1IE 
F8 AD 9F 00121 
0000" CF 9F 00124 
000000006 00 4 FB 00128 
F8 AD OF QO12F 
000000006 00 01 FB gt $ 
04 001 


Routine Base: 


314 bytes, 


; Routine Size: 


SCODES + OFEC 
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ums 
AM 


nw 


eeow 
v0v 


$: 


i. 


oso 


Be 92:99:28 


3(STR), R7 
RO, (R?) 

2(§TR) 
TR 


GROUPS 
TR 


STR 
NODE _IDDSC 


STR 


NUM_SERVICES 
, NAMEDSC 
R7 
€, (R7), @NAMEDSC+4 


* ssepeshiatih 


SERVDSC, P+4 
NODE_IDDSC 
IDDST, P+12 
GRPDSC, P+16 
MCASTIMR, P+20 
AREA+2, P+24 
AREA+5, P+28 
AREA+24 


ACTIVE, P+32 
INACTIVE P+32 
#512, vst 

BUF, DSC+4 

SP 


DSC 
DSC 


P.AFS 
#4, SYSS$FAOL 
#1, LIBSPUT_OUTPUT 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 


BDSC, (R7), @NODE_IDDSC+4 


P 12. 
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Se 
oSen- 
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ol Program 1b-$e 1984 01:49: VAX-11 Bliss-32 V4.0-74 P 14 
OUPS Ponvert the group codes to an as 1 730071382 93:99:38 DISKSVMSMASTER:CLAT.SRCJLATCP.832;1 age 1) 


ZSBITL “LCP_CVTGROUPS Convert the group codes to an ascii printable string’ 
ROUTINE LCP_CVIGROUPS : NOVALUE = 9 p ng 


r 
R 


e= 
QS 
a 


'o4¢ 


; FUNCTIONAL DESCRIPTION: 


Ss 


Covert the group codes in thr GROUPS vector to an ascii output 
string, suitable for printing. 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


SSSs3roxR 
woo Muir 


GROUP vector area set up with group codes 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


RESLSSSLESLANLESE 
PAPA AAOAO 


oO 
w 
= 


errors signalled 
SIDE EFFECTS: 
NONE 


. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
] 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
to 
. 


BITPOS, Bit position within lLongword 
SIZE, Length of bit stream to scan 
BYIC_OFFSET. Offset in group code string 


Pointer into output string 


POIPRIPIPORINORY a8 ot ot et os os ss 


SBGFEAFUNLSSSVEA RAN LS CBVeAnRansoSeue 


LEF f_PAREN, 
RIGHT_PAREN, 


COMMA, 
INDEX 


WALA AIA AIR PROPUROPONONONOPY 2 ee 
URW OC DONAUEWN HOD ONAULWN =O 


oo 


PADDED DDD A AAA AAA AAA AAA AAA AAO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
STATUS, 


PUPP PULPOSUS DUDS PUSS SUSU SUSU SUSU SISTSTSTSTSISISISIIIT 


39 

640 LITERAL 
641 STRSIZE = 512, ! Size of input and output strings 
aks BITSIZE = 32, ! Maximum number of bits to scan 
27 CVTSTRSIZE = 3 ! Size of output conversion string 
645 

40 os6 CAL 

41 64 CVTDSC : BLOCK CDSC$K_Z BLN, Byte). 

ri} ace CVTSTR : VECTOR ECyT STE ice. BYTEIJ, 

ri et GROUP : REF BLOCK C,BYTE 


8 eee 


<- 
- 


. 
. 
. 

° 
7 

ce 
. 

e 
. 
@ 
2 
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o 
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a 
o 
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° 
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° 
. 
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. 
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LCP_CVTGROUPS Vonvert the group codes to an as 1 ~Sep-19 4 93: 7:2 DLSKSVMSMASTERSELAT SRCSLATCP.B32:1 age $33 


LEFT_PAREN = %C‘("; RIGHT_PAREN = %C')"; COMMA = %C','; 


! 
Initialize the group codes input string 


SSETDSC (GRPDSC, STRSIZE, GRPBUF); 
PTR = .GRPDSC CDSCS$A_POINTER]; 
PTR = CHSMOVE(1, LEFT_PAREN, .PTR); 


WO DONOUS wn 


SSSCErEe 


' 
Initialize the conversion output string 


SSETDSC (CVTDSC, CVTSTRSIZE, CVTSTR); 


+53 


PUPVPVPVSPVSVSVSVSVSUSPISISIOSISION B® £* BES AAI NIA AIP PIPPI PIP PPPIPUPIPUPIPPIPOPIPIPIPIPIPIPPOPIPUPPUNUPYD 


BYTE OFFSET = 0; ! Start from beginning 
GROUP = GROUPS; ! Copy the group code pointer 


: ear the group codes one longword at a time, note that there are 
2 Longwords that we must search. We will use the FFS Library routine 
to find all corresponding bits that are set. 


WHILE -BYTE_OFFSET LSS 32 


BEGIN 
BITPOS = 
SIZE = BITSIZE; 
STATUS = TRUE; 
WHILE .STATUS AND .BITPOS LSS BITSIZE 


oO 


BEGIN 
STATUS = LIBSFFS(BITPOS, SIZE, GROUPC.BYTE_OFFSET,0,0,0), 
IF STATUS : 

THEN 


BEGIN 


i Convert the bit number + offset to a binary value, 
and strip off leading spaces from converted string. 


STATUS = OTSSCVT 7 TI (RREF(( BYTE _OFFSET*8)+.BITPOS), CVTDSC); 
INDEX = LIBSSKPCTRASCID ZSTRING(* *), CVTDSC) = 1; 


Move the converted string to the output buffer and 
add a *’,"* to the end. 


= CHSMOVE (.CVTDSC COSC$W_LENGTH] - . INDEX 
acVTDSC COSCSA_POINTER) + .INDEX, .PTR); 
= CHSMOVE(1, COMMA,~.PTR); 

OS = .BITPOS + 1; 

= .SIZE - .BITPOS 


| Set up the Group codes string 
| 
| 
| 


T 


WD Wrarnrne-= 
os 

nD 

mo 


S 
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rol ye tm 18-Sep-19 4 9 
ROUPS Convert the group codes to an as 14-Sep-1984 


END 
END 
BYTE_OFFSET = .BYTE_OFFSET + 4 
END 


<r 
= 


4:49:18 VAX=-11 Bliss- et ets, 
2:37:2 DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 


o— 
Qo 
< 

on 


Overwrite Last comma with the right parenthesis 
PTR = .PTR = 1; 
PTR = CHSMOVE(1, RIGHT_PAREN, .PTR); 
Calculate size of string moved 
GRPDSC COSCSW_LENGTH] = .PTR = .GRPDSC CDSCSA_POINTER); 
END; 


SNS NSN NNN ODP 


MROPONOPONONUN) 


NOUSWN—CODNOUS WOOO 1 


=SPIPIPIPIPIPIPUPOPIPIPUPUPIWIWII FP 
- ——- ee. 


-PSECT $PLITS,NOWRT,NOEXE,2 


00 00 00 20 OOFI4 P.AFV: .ASCII \_\<0><0><0> 3 
010E0001 OOFI8 P.AFU: .LONG 17694721 § 
00000000" OOFIC -ADDRESS P.AFV : 


.PSECT $CODES,NOWRT,2 
OFFC 00000 LCP_CVTGROUPS: 
.WORD 


i off off off off off of6 off of ol oft odd fd off fd off odd odd off odd of oft of odd off oft 8d od fd ole 28d oft odd ol od ot ode 2d 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 3595 
5E 1¢ C2 00002 SUBL2 #28, SP ; 
50 28 DO 00005 MOVL #40, LEFT_PAREN : 3652 
04 AE 29 D0 00008 MOVL #41, RIGHT_PAREN : 
58 2C p00 0000C OMMA : 
0000' CF 9200 8F 3C O000F MOVZ2WL #512, GRPDS : 3657 
0000" CF 000" CF ; 00016 MOVAB GRPBUF, GRPDSC+4 ; 
53 0000' CF p 00010 MOVL  GRPDSC+4 : 3659 
83 50 90 000 ‘ MOVB  LEFT_PAREN, (PTR)+ + 3661 
14 AE 03 pO 00 MOVL @ : 3666 
18 AE 08 ag E 00029 MOVAB CVfSTR, CVTDSC+4 : 
57 D4 000 CLRL BYTE _OFFSET : 367 
5 0000° CF i: 900 MOVAB GROUPS, GROUP : 367 
2 7 Di 00035 18: CMPL § BYTE_OFFSET, #32 : 3679 
3 18 000 BGEQ F 
OC AE 0 7D O003A MOVQ #32, SIZE > 3683 
SA 1 D0 99 E MOVL. #1, STATUS : 3684 
59 56 7 C1 00041 ADDL3 BYTE OFFSET, GROUP, R9 > 3688 
60 Sa EO 0045 2$: BLBC = STATOS, : 3685 
20 10 AE Di 048 CMPL TPOS, #32 : 
SA 18 9 4C BGEQ : 
10 AE 9F uF PUSHAB Bi TPos > 3688 | 
59 DD 0005 PUSHL R : | 
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v04-000 LCP_CVTGROUPS Ponvert the group codes to an as 12-80-1382 93:49:38 DI EKSUMGMASTERSCVAT  SRCSLATCP.832;1 . (333 
16 AE OF 09 PUSHAB SIZE 
1C AE OF PUSHAB BITPOS 
000000006 90 .*¢ 0 CALLS #4, LIBSFFS 
A 0 D 60 MOVL RO, STATUS 
42 A 006 LBC = STATUS, 3$ 690 
14 Ag F 66 PUSHAB CVTDSC 697 
04 AE 14 BES? 7E 0006 MOVAQ @BITPOSCBYTE_OFFSETI, 4(SP) 
04 AE OF O6F PUSHAB 4(SP) 
000000006 00 Q FB 000 a CALLS 2, OTSSCVT_L_TI 
SA DO 0007 OVL RO, STATUS 
14 AE 9F O0007C PUSHAB CVfDSC 
0000" CF 9F O07 PUSHAB P.AFU 
000000006 00 2 FB 00083 CALLS #2, LIBSSKPC 
58 FE AO 9E 0008A OVAB -1(RO). INDEX 
50 14 AE 3C 0008 MOVZWL CVTDSC, 
50 5 é 0009 SUBL ¢ INDEX, RO 
63 18 BEB 50 0009 MOVC3 RO, aCVTDSC+4CINDEX], (PTR) 3704 
83 58 90 00098 MOVB COMMA, (PTR)+ 3705 
10 AE 06 0009E INCL ITPO 3706 
OC AE 10 AE ¢2 OO0A1 SUBL2 BITPOS, SIZE 3707 
90 11 OOOA BRB 3685 
57 04 CO OOOA8 3S: ADDL2 #4, BYTE_OFFSET 3712 
88 11 OOOAB BRB 
73 04 AF 90 OOOAD 4$: MOVB = RIGHT_PAREN, -(PTR) 3720 
§ D6 000B1 INCL. P 
0000" CF 53 0000' CF A3 000B3 SUBW3  GRPDSC+4, PTR, GRPDSC 3725 
04 00088 RET 3727 


; Routine Size: 188 bytes, Routine Base: S$CODE$ + 1126 


PETE TETETOTEOETECETE TSEC OOOO eee re rere rere rere re) 
GW Ww 
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oO o 
Ww co 


—_-e_— ewe eeieeerieeie ee ee ee ee ee ee eB RB BB Me Ms 88s 8s 88s - 8s 48 88 


<r 


BS 
~ 
oO 
vw 


: 


nuns FE 


3 


oe 


74 


WALA ALAA AAA 
PPP RP PP ter 
WAANAAAAAALININD 
CODNOUNEWN—OOO 1 


SSS NSS 
a PPP PPP Pee ee PPP 
=O OONO UE W  O VONAUE WN" O OONAOUSWAR "OVE ~ 


OO NNN NS NNN NS 


“ 
CoCo 
wr 


WAAAAAIAIAANAAIAIAAAAIANA WN AIA NAINA AANA NAIA 
~“ 


e 


$ 


FUNCTIONAL DESCRIPTION: 


Show the LAT servers (by name) and number of active sessions. 
interesting tidbits. 


FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

commcn data area in the driver. 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


errors signalled 
SIDE EFFECTS: 
NONE 


BEGIN 


IND 
UNKNOWN = DESCRIPTOR ("UNKNOWN") 


LITERAL 
BUFSIZE = 24 


LOCAL 
: BL 


NAM oc 
PARAM : VEC 
CK 


DSC$K_2 BLN. BYTE], 
BU CBUFSIZEI, 
PTR : REF BLO 
STATUS 


BYTE), 


“ 
oO 
es | 
ro 
. Zea 


CHSFILL (255, GHBS$S_COMM_AREA, AREA); 
' 


Get the counters if we can, and if not then signal the error 


NOT 
(STATUS = SCMKRNL (ROUTIN = LCPK_GETSERVERS) ) 
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rol Program 16-Sep-1984 01:49: VAX-11 Bliss 
SERVERS” Display the LAT Servers 127808-1 986 12: 9:38 DISKSVMSMAST 
ZSBTTL. ‘LCP_SHOWSERVERS Display the LAT Servers’ 
ROUTINE LCP_SHOWSERVERS : NOVALUE = : 
oe 


a — . . 


Page 


~o 


1 
3 


<- 
=. 


5 ee ee ee SS. +. +... 


“vo 
xo 
22 
oo 
”n" 
mo 
Da- 


WWW NI AANA AANA AAA 


coco 
— 


SSNS SSNS SSS 
RN San wenn d-anhe-see babe ee 
uw 
0 09 Co 00 C0 0d Co 09 09 00 09 09 09 09 0 09 0 CD CD 0D CD CD CD 


NOUS WN OO OONOUESWN—O0OanN 


LA ALAA AIA AAAI NIA NN AIAN WW 
PERLE LPP LPP EEE LEEPER SESS EE PUNE WWPPOPoNononononononofpononurnonury 


WANN NA WNANAINIWIN NAIA AIAN AA AANA ANNAN WIAA AAANNAA 


WANNA AN 


Program 
VERS Display the LAT Servers 


THEN 
SIGNAL (.STATUS) 


Convert the server info for output one at a time 
Display: 
Server state 
Number of users 
Ethernet address 
IF .AREA_RET_SIZE EQL 0 
Some (LCPS_NOSERVERS) 


! 
' 
! 
! 
‘ 
: Server name 
' 
! 
! 
I 


BEGIN 
INCR INDX FROM AREA 

TO AREA + .AREA_RET_SIZE = (GHBSK_NAMELEN + 9) 
- BY GHBSK _NAMELER + S 


Get name descriptor 
F PTR CO, 0, 8, 0] Ea 0 
_PARAM_BUF [0] = UNKNOWN 

BEGIN 

PARAM BUF [0] = NAME_D 

SSETDSC (NAME_DSC, EaTR “to, 0, 8, 0], PTR (1, 0, 8, 0)) 


' 
Skip over server name 

PTR = .PTR + GHBSK_NAMELEN + 1; 
1 

i] 


Get the Ethernet address, 6 bytes (1-6) 


PARAM |Our Ti) © .PTea £1, 9, B. Oi 
PARAM_BUF : = .PTR (2, 0, 8, 0]; 
PARAM_BUF = .PTR C5, 0, 8, 0): 
PARAM-BUF [4] = .PTR C4, 0, 8. 0]; 
PARAM_BUF [5] = .PTR C5, 0, 8, 0); 
PARAM_BUF [6] = .PTR (6, 0, 8, 0]; 
PARAM_BUF (8) = .PTR CO, 0, 8, 0); ! Get the # of users 


i Display current state 


14 
1b-Sep-1986 01:49:16 VAK@11 BLiss-32_y 
ea eeenTahe PE GF se Me OAASTER-ChAT sacSLaTcr.e32:1 


See Se Se Se Oe Oe Oe Se Se Be Se OH Se Be Se Se Se Oe Os Oe BF Se Oe Oe Se OH Oe SH Oe Oe OH Oe Oe ee Se as 


S BS Aa S&S 


SNS NSN 


iw aes 
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LAT Control Program 1b-3¢ -1984 01:49: VAX-11 Bliss-32 V4.0-74 
CCP_SHOWSERVERS” Display the LAT Servers 1 ~300 71382 04:49:38 WT EKSVMOMASTERSLVAT SRCTLATCP.832:1 
org 4 ! 
4 4 IF .PTR (7, 0, 8, 0) 
44 4 THEN 
45 4 PARAM_BUF [7] = ACTIVE 
re] 4 ELS 
Ste 2 PARAM_BUF [7] = INACTIVE 
849 4&4 
529 : SSETDSC (OUTOSC, OUTBUFSIZE, OUTBUF); 
b3¢ 4 STATUS = $FAOL 
$2 4 ( 
54 4 CTRSTR = ZASCID 
855 4 ZSTRING 
856 4 ( 
857 & "!/LCP Server Characteristics for !AS!/!/', 
3858 4 "Ethernet address = !XB=-!XB-!XB-!XB-!xXB-'xB !/', 
$622 ? "Server is !18<!AS!> Active users = !18<!UB!>!/' 
3861 4 OUTLEN = OUTDSC COSC$W_LENGTHI, 
$006 4 OUTBUF = OUTDSC, 
3863 4 PRMLST = PARAM_BUF [0] 
3864 4 3 
3865 4 
$e09 2 IF NOT .STATUS THEN SIGNAL (.STATUS); 
$006 2 STATUS = LIBSPUT_OUTPUT (OUTDSC); 
TA 2 IF NOT .STATUS THEN SIGNAL (.STATUS) 
$576 4 END 
3873 3 ; 
3874 3 
3875 ; 
3876 END 
3877 3 
3878 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
4—E 57 4F 4E 4B 4E 55 OOF20 P.AFX: .ASCII \UNKNOWN\ 
ed -BLKB 1 
00000007 OCS28 P.AFW: .LONG 7 
00000000' BOF SS ADDRESS P.AFX 
65 76 % 65 53 20 50 43 4C€ cf 21 OOFSO P.AFZ: .ASCII \!/LCP Server Characteristics for 'AS!/!/\ 
69 74 73 69 72 65 74 63 61 $ 61 OOF 35F 
2F 21 f 21 53 41 21 20 72 6F Oot ek 
64 61 $¢ 4 65 6— 72 65 68 74 $3 OOFS -ASCII \Ethernet address = !XB-!XB-!XB-!XB-!XB-!\ 
42 58 21 2D o 58 21 20 H4 $0 7 Borg! 
21 ¢ $6 5 $1 D 42 58 21 ¢8 OF 76 : 
72 65 7 72 6 33 a 4 4 42 58 Boe go -ASCI] \XB !/Server is !18<!AS!> Active users\ 
20 $9 3— 21 33 lee, ae 31 4 OF 8F 
3 72 65 73 75 20 65 76 $9 4 OOF9E 
21 42 55 21 3C 38 31 21 #20 3D 30 gar ae ASCII \ = '18<!UB!>!/\<0><0> 


(3 


| 
Page 139 
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cp LAT Control Progr 16-Sep-1984 01:49:1 VAX-11 Bliss-32 V4.0-74 
v04-000 LCP _SHOWSERVERS” Di Dispiay the LAT Servers 12-88-1386 9} 37:38 
10E0086 OOFBB P.AFY: .LONG 17694854 
0060000' oor Be -ADDRESS P.AFZ 
UNKNOWN= PLAFW 
-PSECT $CODE$,NOWRT,2 
OOFC 00000 LCP_SHOWSERVERS: 
.WORD Save R2,R3,R4,R5,R6,R7 
57 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R? 
56 0090" CF 9E 90009 MOVAB OUTDSC, R6 
5E 98 AE 9E 0006 MOVAB -104(SP), SP 
0060 8F FF OB 6 00 2C 0001 MOVC #0, (SP), #255, #96, AREA 
FSFC C6 OOO1A 
7E 04 0001D CLAL -(SP) 
0000v CF 9F OODTF PUSHAB LCPK_GETSERVERS 
000000006 99 Os FB BORes CALLS #2, SYSSCMKRNL 
5 50 DO 0002A OVL RO, STATUS 
05 53 «E8 900¢0 BLBS STATUS, 1$ 
53 DD 00030 PUSHL STA TUS 
67 01 FB 00032 CALLS LIBSSIGNAL 
52 FC A6 DO 00035 1$: MOVL AREA _RET_SIZE, R2 
OA 12 00939 BNEQ $ 
000000006 8F DD 00038 PUSHL #LCPs NOSERVERS 
67 01 FB 00041 CALLS , LIBSSIGNAL 
04 00044 RET 
54 FSFC C6 YE 00045 2$: MOVAB A, 
55 F5E3 C642 9E OO04A MOVAB AREAZ2SCR2J, R5 
0092 31 00050 BRW 10$ 
52 54 DO 00053 3$: MOVL INDX, PTR 
62 95 00056 TSTB (PTR) 
07 12 00058 BNEQ 4$ 
6E 0000' CF 9E OO05A MOVAB UNKNOWN, PARAM_BUF 
10 11 0005F BRB 5 
6E 60 AE YE 00061 4$: MOVAB NAME_DSC, PARAM_BUF 
62 AE B4 00065 CLRW NAME~DSC+2 
60 AE 62 98 00068 MOVZBW (PTRY, NAME_D 
64 «AE 01 A2 YE 0006C MOVAB 1(R2), NAME_DSC+4 
52 11 CO 00071 5$: ADDL2 #17, PT 
04 AE 01 A2 9A 00074 MOVZBL 1(PTR), PARAM_BUF +4 
08 AE 0¢ Ae 9A 00079 MOVZBL g(PTR). PARAM_BUF +8 
OC AE 0 Ag 9A 0007 MOVZBL 3(PTR), PARAM BUF +12 
10 AE 04 Ad 9A 99 MOVZBL 4(PTR), PARAM_BUF +16 
14 AE 5 Ae 9A 00 MOVZBL 5(PTR), PARAM~BUF +20 
18 AE 06 ag 9A 90080 MOVZBL (PTR), PARAM BUF $24 
20 AE 62 9A 00092 MOVZBL (PTR), PARAM_BUF +3 
08 07 A2 9 00096 BLBC 7(PTRS, 
10 AE 0000' CF 9E OO09A MOVAB ACTIVE, PARAM_BUF +28 
06 11 OO00A0 BRB 7$ 
1C AE 0000' CF 9E O0ne 6$: MOVAB INACTIVE. PARAM_BUF +28 
66 0400 =8F 3c OOAS 7$: MOVZWL #1024 C 
04 Ab 08 A6 9E OAD MOVAB OuTBUF QUTDSC+4 
404 gf BB 000B PUSHR #*M<R6,SP> 
6 bb 0086 PUSHL RO 
0000" CF 9F 00088 PUSHAB P.A 
000000006 00 04 FB O00BC CALLS ya SYSSFAOL 
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LATCP LAT Control Progra 16-Sep-1984 01:49 16 VAX-11 Bliss-32 V4.0-7 Page 12 
v04-000 LCP_SHOWSERVERS Display the LAT Servers 14-Sep-1984 12:37:2 DISKSVMSMASTER:CLAT. SRC LATCP.B32;1 (33) 
5 5 4 00C3 MOVL RO, STATUS : 
0 53 £8 000C6 S STATUS, ; 3866 
53 DD 000C9 PUSHL STATUS F 
67 4 FB OQOOCB CALLS #1, LIBSSIGNAL $ | 
6 DD OOOCE 8$ PUSHL R6 ; 3868 
000000006 99 1 F i CALLS) #1, LIBSPUT_OUTPUT : 
DO 000D MOVL RO, STATUS ; 
05 E BR0A BLBS STATUS, 9$ ; 3870. 
DD Q00DD PUSHL STATUS : 
7 01 Fe ODF CALL #1 LIBSSIGNAL ; 
4 19 CO OO0E2 9$: ADDL2 #25, INDX ; 
5 33 p} 43 10$: CMPL INOX. R5 PF 
3° (14 E BGTR 1$ é 
FF66 31 QOOEA BRW 3$ : 
4 QOOED 11$ RET ; 3878. 


; Routine Size: 238 bytes, Routine Base: SCODE$ + 11E2 | 


| a 


DONO US WO 


—ODOnNOUSWN oO 


LAT Control Program 
LCP_HELP Give HELP 


: 
5 
5 


90 


9 C0 CD COCO 
oovono 


S3e38 


PREP IPOPIPIPOMONONPIPIPINONIPIMINIY 8 tt tt tt nt tt tt tt tt a tt 


SOOONOUS WO 0O@ 


MEUM —OOCONOUS wn 


WNW 


ZSBTTL "LCP HELP Give HELP" 
GLOBAL ROUTINE LCP_HELP : NOVALUE = 


oe 
FUNCTIONAL DESCRIPTION: 


F 14 
16-Sep-1984 01:49: VAX-11 Bliss- 
1730-1 $8e 9:97:38 DISKSVMSMASTE 


This routine is the LATCP help facility, and will display 
useful and informative explanations of the LATCP facility. 


CALLING SEQUECE: 
standard 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
none 


! OUTPUTS PARAMETERS: 


none 


i IMPLICIT OUTPUTS: 


The help text will be printed on SYSSOUTPUT. 
ROUTINES CALLED: 

LBRSOUTPUT_HELP 
ROUTINE VALUE: 

none 
SIGNALS 

none 


SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL ROUTINE 

LBRSOUTPUT_HELP : ADDRESSING_MODE (GENERAL) ; 
BIND 


LIBRARY_NAME = DESCRIPTOR (‘LATCP'), 

KEYWORDS _DSC = DESCRIPTOR (*KEYWORDS'); 
LOCAL 

SUBCMD_DSC : BLOCK COSC$K_2_BLN, BYTE], 

STATUS; 


' HELP text Library 
' Keywords desc 


' Rest of Line 


2.V4.0 


:CLAT 


rity p 
«SRCJLATCP.B32;1 


( 


12 


3 
34) 


LAT Contro 
LCP_HELP Give HELP 


f= 
s* 


SRIF ARAS 


(0 09 C9 Co C9. CD CD. 


84 
84 
84 
84 
84 
84 
84 
84 


5 


Get help keywords and uppercase them 


CHSFILL (0, Dst$_z BLN, SUBCMD DSC); 
seer eke 


UBCMD_DSC CDSCS$wW_LENGTH] NEG 


Program 18- 
14- 


DSCSR_CLASS _D; 
ELISGET VA VALUE STE TWORBS DSC, a St); 


$752 


14 
-Sep- 138% 1: 


VAX-11 Bliss-32 V4.0-74 
oe 984 12: 


! Zero fill desc 
' Fill in desc class 
! Get the KEYWORDS 


STRSUPCASE (SUBCMD_DSC, SUBCMD_DSC); 


LBRSOUTPUT ete ak a OUTPUT 


Y_NAME, 
END; 
50 43 54 41 4C OOFCO 
OOF CS 
00000005 OOFC8 
00000000" OOFCC 
53 44 52 4F 57 59 45 4B OOFDO 
00000008 OOFDS8 
00000000' OOFDC 
003C 00000 
5E 08 C2 46h 
00 6E 00 2C 0000 
gf QO00A 
03 AE 02 90 00008 
5E 0D OO00F 
0000° CF OF Boots 
00000000G 00 02 FB 00015 
6E ; Bete 
ge 1 
E pp 68 
04 ag F 
00000000G 00 FB 000 
000000006 00 9F 000 § 
E 04 000 
0000° CF OF 5 
OC AE OF 
43 Bs 038 
000000006 0 F 4 7 
00000000G 00 06 FB 4 
04 0004A 


Call LBRSOUTPUT_HELP to do all the reai work. 


SUBCMD_DSC, 
Pu léseer® INPUTS; 


-PSECT SPLITS,NOWRT,NOEXE,2 


P.AGB: .ASCII \LATCP\ 
-BLKB 3 
P.AGA: .LONG 5 
«ADDRESS P.AGB 
P.AGD: .ASCII \KEYWORDS\ 
P.AGC: 


LON 
[ADDRESS P.AGD 
LIBRARY_NAME= P.AGA 
KEYWORDS _ He P.AGC 

TRN LBRSOUTPUT_HELP 
SCODES,NOWRT,2 
LCP_HELP, Save R2,R3,R4,R5 
#0. (SP), #0, #8, SUBCMD_DSC 
#2, SUBCMD _DSC+3 


KeYWOR DS_DSC 
r] CLISGET _VALUE 


SUBCMD_D 
$6 

SP 

rb CSTRBUBCASE 
LIBS $GET_INPUT 


LIBRARY NAME 
D_Bsc 


LIBSPUT OUTPUT 
fe. LBRSOUTPUT_HELP 


1$: 


$s - 
DISKSVMSMASTER:CLAT.SRCJLATCP.B32;1 


Pete Se Se Se Se Se Se Se Se Se Be Be He Se Se Be Be Se Se Se 


aR SRAE UDAEAATER thik arce seen ES 


} 

14 
LATCP LAT Control Program 1hese -1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 126. 
v04-000 LCP_FAOOUTPUT Convert and write a string 12786-1382 93:93:38 DLeKSVMSMASTERSELAT SRCSLATCP.B32:1 7 (35), 
; 0 953 1 ZSBTTL “LCP_FAOOUTPUT Convert and write a string’ | 
3 1 1 : ROUTINE LCP_FAOOUTPUT (FAOSTR, DATA) : NOVALUE = 
; g 9 $ 1 lee | 
$ 3 ¢ 33 : FUNCTIONAL DESCRIPTION: 
: B29 9 § 1! Convert 32 bytes to a suitable parameter List for fao. The fao 
3 TH 4 ! parameter string and the address of the data are passed. 
; 3859 96¢ 1 | FORMAL PARAMETERS: 
; 3860 963 1 | 
3 50) 9646 1! FAOSTR Address of Sone of fao controi string 
: aoe 965 ; DATA Address of 8 bytes of data 
; 3864 3c? 1 i IMPLICIT INPUTS: 
>; 3865 968 1! 
; 3866 969 1! NONE 
; 3867 970 1 | | 
; 3868 971 1 ! IMPLICIT OUTPUTS: 
3; 3869 444 7 | 
; 3870 97 1! NONE 
3; 3871 974 1! 
3 are 975 1 ! ROUTINE VALUE: 
3; 387 97 1 ! COMPLETION CODES: 
; 3874 977 1! 
3 sare 978 1! NONE 
: 3876 979 1! 
3; 3877 980 1 ! SIDE EFFECTS: 
; 3878 981 1! 
3; 3879 982 1! NONE 
; 3880 98 1} 
; 3881 3984 1 !<- 
3 sea6 985 1 
; 388 986 $ BEGIN 
; 3884 987 
; 3885 988 e 
: 3886 989 DATA : REF VECTOR C, BYTE) 
3 ert 990 : 
; 3888 991 
: 3889 99 CAL 
> 3890 99 STATUS 
; 3891 994 EXPLODE : VECTOR [32, LONG] | 
: £36 995 3 
; 59 399 ¢ 
; 3895 4 Set the output buffer descriptor 
: 397 resis SSETDSC (OUTDSC, OUTBUFSIZE, OUTBUF); 
; 3899 4 § ! 
:; 3900 400 ! Explode the data to longwords eight bytes of a time. 
; 3901 4004 ' 
: 3 rts — NEQ 0 
3 3904 4 Oo BEGIN : 
; 3905 4008 EXPLODE C 0) = DATA £0); ' Get address of time 
3; 3906 4009 INCR IDX FROM 8 TO 3 


14 
LATCP LAT Control P 1b-Se -1984 01:49:1 VAX=11 Bis s-32 V 7 
v04-000 LCP_FAQOUT Put Convert end urite a string ae 3:93:58 DISKSVMSMASTER: cai’ OCACILATCP. B32;1 Page 12) 
; 3907 4010 3 
; 3908 4911 4 BEGIN 
; 3909 4 ig 4 EXPLODE C.1IDX-7] = .DATA C.1DX] 
; N 
910 4013 4 END 
: 3911 4014 END 
$ aig 4015 ; 
Saiz to19 
; 1a red Convert and print an output Line 
: 317 p 49 0 STATUS = $FAOL 
: 318 P t0 § CTRSTR = 
: 3920 P 40 OUTLEN = but bse *toscsu. LENGTH], 
: 3921 P 4024 OUTBUF = OUTDSC 
: 39 g P 4025 PRMLST = EXPLODE 
: 395¢ 1059 . 
; i 2 tt 34 IF NOT .STATUS THEN SIGNAL (.STATUS); 
: $37 408 STATUS = LIBSPUT_OUTPUT (OUTDSC); 
: 3929 403 IF NOT .STATUS THEN SIGNAL (.STATUS) | 
3 386 1038 2 
; 3931 4034 1 END; 
001C 00000 LCP_FAOOUTPUT: 
«WORD Save R2,R3,R4 : 3954 
54 000000006 00 9€ 0000 MOVAB LIBSSIGNAL , RG ; 
53 0000' CF 9E 9000 MOVAB OUTDSC ; 
3E 80 AE 9E 0000 MOV OB tsb) © SP : 
é 0400 8F 3C 0001 MOVZWL #1024, OUTDSC + 4000 
04 A3 08 A3 9E 0001 MOV OUTBUF, OUTDSC+4 ; 
51 08 Ac 06 9001¢ MOVL DATA, R1 + 4005 
10 13 00020 BEQL 2s : 
6E 51 00 000 é MOVL 1, EXPLODE : 4008 
50 08 DO 000 MOVL * IDX + 4009 
E4 AE4O 6041 9A 00028 1$ MOVZBL are Do” EXPLODE-28C 10x) : 4012 
F6 50 1F F3 000 AOBLE x, 1$ : 4011 
4008 gf 8B 99 2$ PUSHR »$P> : 4026 
3 DD PUSHL : 
04 AC OD 00 PUSHL FAOSTR : 
000000006 00 4 FB 000 CALLS #4, SYS$FAOL : 
52 DO 0004 MOVL RO. STATUS ; 
05 E8 0004 BLBS STATUS, 3$ : 4028 
DD 0048 PUSHL st ; 
64 oi FB O4A CALLS #1, LIBSSIGNAL : 
3 DD 00040 38: PUSHL R : 4030 
000000006 99 1 F 4F CALLS #1, LIBSPUT_OUTPUT : 
¢ D 28 MOVL ; 
E LBS STATUS, 4$ : 4032 
; DD 0005¢ PUSHL 5T ; 
64 1 FB 0005E CALLS #1, LIBSSIGNAL : 


} 
— 


ae 49: e . * 
tO4s000 teP_FROGUTPUT Ponvert and write a string 12-28-1382 94:43:16 DPEKSUMGMASTERSCUAT SRCSLATCP.832:1 Page 438 rt 
04 00061 4$: RET : 4034 
; Routine Size: 98 bytes, Routine Base: SCODE$S + 1318 


Routine Size: 16 bytes, Routine Base: $CODE$ + 137D 


0-74 Page 
OSRCILATCP.032;1 . (3) 


14 
LATCP LAT Control Program 1b-Se -1984 01:49:1 VAX-11 Bliss-32 V 
v04-000 CCPK_GETCOUNTERS Obtain the counterblock 12786871 38 93:93:38 DISKSVMSMASTER:CLAT 
; 3933 4035 1 ZSBTTL ‘LCPK_GETCOUNTERS Obtain the counterblock' 
3; 39 4 § 1 ROUTINE LCPK_GETCOUNTERS = 
; 3955 4 1 
3; 39 4 : 1 tee 
s ; Z i ! FUNCTIONAL DESCRIPTION: 
; 339 t8e) : } Copy the counters from the driver, to an area here for conversion. 
3; 3941 a9e8 1 ! FORMAL PARAMETERS: 
; ars 4044 1! 
: 394 4045 1! NONE 
: 39446 rt 4 1! 
3; 3945 404 1 ! IMPLICIT INPUTS: 
: 394 4048 1! 
: 394 4049 1! counter block in driver 
3; 3948 4050 1! 
3; 3949 4051 1 ! IMPLICIT OUTPUTS: 
; 3950 th26 1! 
: 3951 4055 1! counter block here 
; 395 4054 1! 
; 395 4055 1 ! ROUTINE VALUE: 
3; 3954 $028 1 ! COMPLETION CODES: 
; 3955 4057 1! : . 
; 3956 4058 1! success or failure if no driver 
; 3957 4059 1! 
; 3958 4060 1 ! SIDE EFFECTS: 
; 3959 4061 1! 
; 3960 4062 1! NONE 
; 3961 40635 1! 
; secs 4064 1 !-- 
; 396 4065 1 
3 35964 4066 2 BEGIN 
; 3965 406” 2 
; 3966 4068 2 CHSMOVE (GHBSK_LENGTH, .LCPSL_AREA, AREA); 
3; 3967 4069 § SUCCESS 
: 3968 4070 
3; 3969 4071 1 END; 
003C 00000 LCPK_GETCOUNTERS: 
wont Save R2,R3,R4,R5 
0000" CF 0000" oF 0060 8F 28 00002 MOVC3 #96, @LCPSL_AREA, AREA 
50 01 00 0000C MOVL #1, RO 
04 0000F RET 


29 | 


LA 
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LAT Control Program 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 130) 
“GETSERVCTRE Obtain the SERVER counters 12-808 - 1382 93:49:38 DISKSVMGMASTERSLVAT SRCILATCP.B32;1 ° Ho 
3 1 ZSBTTL ‘LCPK_GETSERVCTRS Obtain the SERVER counters’ 
: : ROUTINE LCPK_GETSERVCTRS = 
: 1 164 
; : FUNCTIONAL DESCRIPTION: 
; : Copy the counters from the driver, to an area here for conversion. 
: i FORMAL PARAMETERS: 
; NONE | 
; 1 | IMPLICIT INPUTS: | 
: } counter block in driver 
: ! IMPLICIT OUTPUTS: 
; i counter block here 
; 1 | ROUTINE VALUE: | 
; : COMPLETION CODES: 
: : success or failure if no driver 
; i SIDE EFFECTS: | 
: 9 1! NONE 
: 3999 1! 
; 4000 4101 1 i-- 
; 4001 1106 1 
; 4002 4108 2 BEGIN | 
; 4003 4104 2 
: 4004 4105 § LOCAL 
; 4005 4106 CSB_LIST : REF VECTOR C, LONG], 
; 4006 4107 2 CSB_PTR : REF VECTOR C, BYTE], 
; 4007 4108 2 CSB_HEADER, 
; 4008 4109 2 PTR | 
; 4009 4110 2 ; 
; 4010 4111 2 
> 4011 411g 2 
3 sts 4113 2 ! Point to output buffer 
; 401 4114 § ‘ 
3 4014 4115 PTR = AREA; 
: 4015 4116 
2 +016 4117 4 
: 401 4118 ! Get pointer to CSB table 
; 4018 4119 : 
; 4019 4120 CSB_LIST = .LCPSL_AREA CGHBSL_CSBLST); 
: $060 $16) 
; 4021 age ; 
3 1056 $i$ ' Get the counters from each active CSB 
; 40 4124 ! 
> 46024 4125 IF .CSB_LIST NEQ 0 
; 4025 41 § THEN 
> 4026 41 INCR INDX FROM 0 TO GHBSK_ACT_CSBS - 1 
: 4027 4128 DO 
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N14 
Pregres Jo~300" 138% 03:49:16 
VCTRS Obtain the SERVER counters 14-Sep-1984 12:37:2 


BEGIN 
CSB_PIR = CSB LIST C.INDXI; 
IF <CSB_PTR NEO 

PTR = CHSMOVE 


CB_C.L 
END SB-PTR CGHBST_CSBCTRIJ, .PTR) 


; Get pointer to inactive CSB queue, go through queue in reverse order. 


CSB_HEADER = LCPSL_AREA CGHB$Q_OLD_CSBS); 


Get the counters from each inactive CSB 
-CSB_HEADER NEQ 0 


eee ee 


FF. 
HEN 
- (,CSB_HEADER+4) ; 

PTR NEQ .CSB_HEADER 


IN 
_CSB_PTR = 
‘ WHICE .CSB 

DO 
BEGIN 
PTR = CHSMOVE (LCB_C_LENGTH + GHBSK_NAMELEN + 1, 


CSB-PTR CGHBST_CSBCTRJ, .PTR); 
ese Pre = .(.CSB_PTR+4) 


END 
i 
Calculate size of area filled in 
AREA_RET_SIZE = .PTR - AREA; 


SUCCESS 
END; 
03FC 00000 sate aadhiet >a 
53 0000° CF 9€ 0000 MOVAB A 
56 0000" CF OD ti MOVL 
59 20 Ab 0 000C MOVL 
| ee Boi3 BEQL 
58 94 0001 CLRL I 
57 6948 D0 00014 1$ MOVL ( 
9 13 00018 BEQL ? 
oc «A? 1 2 pala MOVC a 
58 fF OF O1F $$ AOBLEQ # 
56 24 (C CF $ ADDL # 
66 05 00026 TST ( 


cree + GHBSK _NAMELEN + 1, 


BSW HS RO RT ASAP 


PPP LLL PLES 
on fF KON! OVW 


' 


} 
| 
| 
' 
| 
| 
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; Routine Size: 


LAT Control Progr 
LCPK_GETSERVCTR 


63 


0000" CF 


77 bytes, 


oc 
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Vv wp 


Routine Base: 


14 °=«71 

04 a9 D 

D 

ie | 

04 A7 OD 
FO 1 

0000' gf 9 
o ¢€ 

01 OD 

0 


SCODES + 138D 


am 
Obtain the SERVER counters 
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4 VAX-11 BLi seaecy Page 2| 
BBs PhgF te Weebl tea MRE seeSuarce.a321 °°9 a5 
BEQL 5$ : 
MOVL 4 (CSB_HEADER), CSB_PTR + 4149) 
cMPL CSB B_PTR, CSB_HEADER : 4150) 
MOVC3 233. 12(CSB_PTR), (PTR) + 4154) 
MOVL 4(CSB_ PTR), CSB_PTR : 4155 | 
MOVAB AREA, RO t 4163) 
SUBL3 RO, PTR, AREA_RET_SIZE : 
MOVL #1. RO : 4167 
RET P | 


AT Cont 
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LCPK_GET 


15 
RS” Obtain the SERVER information 1f3e0-19 2 33:S7i38 — DTEKSumemaSteRCLAT sRcSLarcr.e321 29° 4a; 
L_ "LCPK GETSERVERS Obtain the SERVER information’ | 
NE LCPK_GETSERVERS = 
FUNCTIONAL DESCRIPTION: 
Copy the CSB server info from the driver, to an area here for conversion. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CSB server block in driver 
IMPLICIT OUTPUTS: 
CSB server block info here 


ROUTINE VALUE: 
COMPLETION CODES: 


success or failure if no driver 
SIDE EFFECTS: 
NONE 


DID ce ce ee ed ee ed 


ooo 


ST : REF VECTOR C, LONG), 
R_: REF VECTOR C, BYTE), 
ADER, 


Socoess?e 


DnrUnN—Coewen wr 


ACTIVE _V = 1; INACTIVE_V = 0; 
Point to output buffer 
PTR = AREA; 


: Get pointer to CSB table 
CSB_LIST = .LCPS$L_AREA CGHB$L_CSBLST); 


' 
Get the info from each active CSB 


IF .CSB_LIST NEQ 0 
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ro 16-Sep-1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 134 
RS” Ob Obtain the SERVER information 14 ety Fs 03:43:38 DISKSVMSMASTER: CLAT. SRCJLATCP.B832;1 9° 38) 


THEN 
INCR INDX FROM 0 TO GHBSK.ACTCSBS = 1 


BEGIN 
CSB_PTR = rh it Bt As! C.INDX]; 
{egcseeht 


BEGIN 
PTR = CHSMOVE (GHBSK NARELEN ¢ 8 

PTR CGHBST_CSBCTR + LCB_C_LENGTHJ, .PTR); 
4 CHSMOVE (1, xttive _V, PTR) 


END 


1 
Get pointer to inactive CSB queue, go through queue in reverse order. 


CSB_HEADER = LCPSL_AREA [GHB$Q_OLD_CSBS); 


Get the info from each inactive CSB 


i 
' 
iF 5**- HEADER NEQ 0 


GIN 
CSB_PTR = .(.CSB_HEADER+4); 
WHICE .CSB_ PTR NEQ .CSB HEADER 


BEGIN 

PTR = CHSMOVE (GHBSK_NAMELEN + 8, 
SB_PTR CGHB$T_CSB 

PTR = CHSMOVE (1, pINACTIVE Vv, .PT 

CSB_PTR = . (.CSB_PTR+4) 


CTR + LCB_C_LENGTH], .PTR); 


he 


! 
Calculate size of area filled in 


AREA_RET_SIZE = .PTR = AREA; 
SUCCESS 
END; 


OFFC 00000 LCPK -GETSERVERS 

WORD S$ 2,R 
5A 01 0000 mMOVa. #1, ACTIV 
3 PTR 


3.R4.R5.R6,R7.RB.R9,RI0,R11 
0000" CF P 9000 MOVAB AREAS 
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; Routine Size: 


15 
LAT Control Program 1-52 
LCPK_GETHISTORY Obtain the history buffer 14-Se 


003¢ 00000 LCPK_GETHISTORY: 
WORD 


X-11 BL Liss -32 V4. peg 
SKSVMSMASTER: lai’ SRC LATCP.832;1 


. Save R2,R3.R4,R5 

50 0099" CF D 3 MOVL CPSL_AREA, RO 
Ap D TSTL (RO) 
0 1 A BNEQ 4 

50 000000006 8F 9 9000 MOVL #LCPS_NOHISTORY, RO 

5 AO 14 18: MOVL.  8(RO), 

0000" CF 0c A oad a i$ i Moves #256 0, Wohrey, _BUF), AREA 
4 4 RET ; 


37 bytes, Routine Base: S$CODES + 1430 
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LAT Control Program 


LCPK_GETC 
ZSBTTL 
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VAX-11 Bliss- 
DISKSVMSMASTER: CLAT.SRCJLATCP.832;1 


to get common buffer area’ 


OMMON Kernel mode routine to get comm 14-Sep-19 


*LCPK_GETCOMMON Kernel mode routine 
ROUTINE LCPK_GETCOMMON = 


++ 
FUNCTIONAL DESCRIPTION: 
Kernel mode routine to get the information from the common area in 


FORMAL PARAMETERS: 
IMPLICIT INPUTS: 


results of the qualifier parse 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


SIDE EFFECTS: 
qualifier results set for multicast 


: REF BLOCK C,BYTE], 
STR’: REF BLOCK C,BYTE) 


Setup the output descriptor 
S$SETDSC (OUTDSC, OUTBUFSIZE, OUTBUF); 


Copy the common area 
PTR = CHSMOVE (GHB$S_COMM_AREA, .LCPSL_AREA, AREA); 


Copy the node information to the output buffer area 


LoL eRe as INTER: 
€ (.STR T-e. 0, 16, 03, .LT CGHBSL_NODE), 


LATCP LAT Control Progra 15-50 -Sep-1984 VAX-11 Bliss-32 V Page 139) 
v04-000 LCPK_GETCOMMON scornet mode routine to get comm 1 attr 93: $3: 38 DISKSVMSMASTER: Vai OSRCILATCP. B32;1 ose 139. 
; 4287 | 
3 4 i SUCCESS 
; 4289 
; 4290 
| 
007C 00000 LCPK_GETCOMMON: 
56 000° r Of eons Save 82 ,R5 .R4 R5,R6 : 4329. 
FC AG ait §F 3 #9909 MOVZWL tae OUTD s¢ + 4371 
06 Ab 4 000D MOVAB OUTBUE OUTDSC+4 : 
FSFB C6 FSF4 66 0060 8F 2 90011 MOVC 6, @aLCPSL_AREA, AREA : 4376 
50 F5F4 C6 DO 0001B MOVL LPs AREA, “LT + 4381 
51 1¢ AO DO 00020 MOVL B(LTJ, STR > 4382 
53 66 DO 00024 MOVL OUTDSC+4, PTR : 4383 
63 1c = B0 FE Al 28 00027 MOVC3 -2(STR), @28(LT), (PTR) + 4384 
50 01 DO 0002D MOVL #1, RO : 4388 
04 00030 RET : 


; Routine Size: 49 bytes, Routine Base: S$CODE$ + 1455 


15 
LATCP LAT Control Program 1b-Se 1984 01:49:1 VAX-11 Bliss-32 V4.0-74 Page 140. 
v04-000 LCPK_GETCOMMON STornel mode routine to get comm 1-Sep-19 4 93:99:38 ISK$V ASTERSCLAT SRCSLATCP.032;1 ° (41) 


+ $29 4389 1 END !End of l | 
; 0398 ¢358 End of module | 


3; Run Time: :52. 
; Elapsed Time: 03:55.0 
3 Lines/CPU Min: 2332 

3; Lexemes/CPU-Min: 20161 

; ry Used: 304 pages 
3; Compilation Complete 


0 ELUDOM | 
| 
«EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
; 
; SPLITS 4064 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 5968 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 5254 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; quasene Symbols ----<---- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; -$255$0UA28: CSYSLIBILIB.L32;1 18619 48 0 1000 00:01.8 
; ~$255$DUA28:CSHRLIBINMALIBRY.L32;1 887 35 3 47 00:01.4 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LATCP/OBJ=OBJ$:LATCP MSRC$:LATCP/UPDATE=(ENH$:LATCP) 
; Size: 5254 code + 10032 data bytes 
| 
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